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ABSTRACT 


Traditional  approaches  to  database  system  design  and  implementation  involve  text-oriented 
data  access  with  their  inherent  lack  of  modularity,  extensibility  and  modifiability.  An  alternative 
to  this  traditional  approach  is  using  visual  interface  for  the  design  and  implementation  of 
databases.  This  alternative  approach  involves  using  software  development  tools(toolkits)  to  ensure 
modularity,  extensibility  and  modifiability.  To  study  the  effectiveness  of  using  visual  interfaces, 
we  have  designed  and  implemented  a  sample  application  using  KnowledgePro(Windows),  a  tool 
for  rapid  application  development  under  Windows. 
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I.  INTRODUCTION 


A.  MOTIVATION 

Recent  advances  in  science  and  technology  have  made  high-resolution  graphics  an 
available  presentation  medium  on  mainframes  and  personal  computers.  Tremendous 
advances  in  computer  hardware  have  also  contributed  to  the  demand  for  software 
applications  which  take  advantage  of  these  hardware  capabilities.  As  a  result  of  these 
changes  is  the  flourishing  of  database  applications  employing  visual  interactions  as  means 
of  communication  between  users  and  their  data  base  systems. 

Almost  all  traditional  programming  languages  developed  to  date  have  a  text-based 
syntax  and  structured  modularired  software  development  approach.  Creating  a  graphical 
display  in  traditional  approach  is  to  write  program  which  accepts  parametized  input, 
examine  a  database,  and  then  make  calls  to  a  graphic  subroutine  package  to  create  the 
desired  display.  This  approach  involves  using  relatively  low  level  procedural  languages 
such  as  Ada,  or  C.  The  complex  nature  of  Visual  Interface  software  requires  unacceptable 
amounts  of  time  to  design,  code,  test  and  maintain  the  software. 

By  using  a  relatively  a  new  approach,  this  time  problem  can  be  overcome.  This  new 
approach  involves  using  Software  Development  Tools  (toolkits)  to  develop  Visual 
Interface  software.  Toolkits  should  be  designed  to  ensure  reusability,  modifiability  and 
extensibility.  That  also  means,  the  tools  should  help  ensure  consistency,  ease  of 
maintenance,  and  expedient  implementation.  These  characteristics  should  be  used  as 
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criteria  for  selecting  a  toolkit.  Typically,  these  toolkits  provide  a  collection  of  standard 
objects  that  should  be  powerful  enough  to  be  used  to  build  visual  interfaces  with  small 
amounts  of  code.  For  these  reason,  it  is  necessary  for  database  managers  to  find  a  toolkit 
that  suppon  the  desired  characteristic. 

Many  different  Visual  Interface  Development  Tools  have  been  proposed  in  recent 
years.  One  of  the  promising  toolkit  that  supports  the  desired  characteristics  is 
KnowledgePro  (Windows).  KnowledgePro  (Windows)  contains  high-level  commands  for 
manipulating  screen  objects.  It  also  utilizes  direct  manipulation  of  objects  in  the  database, 
which  extremely  facilitates  using  and  leanting  the  system. 

The  goal  of  this  thesis  is  to  study  the  ease  and  the  effectiveness  of  visual  interface 
development  tools.  To  achieve  the  goal,  we  demonstrate  the  design  and  implementation 
of  prototype  application  Emphasis  Area  Information  System  (EAIS)  using  toolkit 
KnowledgePro(Windows).  This  system  includes  the  required  and  optional  electives  for 
each  emphasis  area  supported  by  the  database  system  which  enables  Computer  Science 
personnel  to  select  elective  from  an  interactive  scheduling  program. 

B.  THESIS  ORGANIZATION 

Chapter  II  will  address  some  background  information  for  the  thesis,  beginning  with 
a  discussitm  of  visual  interface.  Discussion  will  include  visual  programming,  the 
categories  of  visual  programming,  the  advantages  and  disadvantages  of  each  category  in 
general.  We  then  present  the  features  of  window  interface  and,  finally,  the  overview  of 
KnowledgeProCWindows). 


Chapter  m  will  include  a  discussion  of  a  prototype  implementation  created  with 
KnowledgePro  (Windows).  The  discussion  will  describe  the  problem  statement,  the  goals 
of  design  and  implementation,  the  Emphasis  Area  Information  System,  using  the  proposed 
software  KnowledgePro  (Windows). 

Chapter  IV  will  evaluate  the  application  development  process.  We  then  discuss  the 
category  of  KnowledgePro  (Windows),  its  advantages  and  disadvantages  compared  to 
other  Visual  Interface  Development  Tools  Toolbook.  Finally,  chapter  V  will  present  the 
conclusion  of  the  research. 


3 


II.  BACKGROUND 


In  this  chapter,  we  describe  some  background  information  of  the  thesis.  Section  A 
looks  at  the  significance  of  visual  interface  for  human  being.  Section  B  discusses  the 
features  of  window  interface.  The  final  discussion  is  an  overview  of  corresponding 
software  development  tools  which  is  used  in  our  research. 

A.  VISUAL  INTERFACE 

During  the  human-computer  interaction,  most  infoimation  conveyed  by  computer 
is  presented  visually,  typically  by  means  of  dynamic  display  device.  Today,  the  majority 
of  these  devices  are  cathode  ray  tubes  (CRTs),  although  other  devices  such  large-scale 
liquid-crystal  displays  may  be  more  common  in  the  future.  No  matter  what  display 
technology  is  used,  the  content  and  format  of  information  presented  will  always  have 
substantial  impact  on  the  usefulness  and  efficiency  of  the  interaction.  In  the  human- 
computer  interaction,  visual  interface  affects  both  the  user  initial  impression  of  the 
interface  and  system’s  longer-term  usefulness.  Visual  interface  comprises  all  the  graphic 
elements  of  interaction,  including  overall  screen  layout,  menu  and  form  design,  use  of 
color,  information  codings,  and  placement  of  individual  units  of  information  with  respect 
to  one  another.  Therefore,  graphical  displays  play  important  role  in  visual  interactions. 

The  trend  in  tire  design  of  a  database  systems  is  towards  more  visual  forms  of 
interaction.  The  means  of  communication  is  no  longer  simple  comprehension  of  written 
words,  but  interpretation  of  visual  and  spatial  properties  of  graphical  items  including 
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icons,  windows  and  menus.  We  believe  a  visual  interface  holds  a  best  potential  as  a  end- 
user  interaction  tool. 

In  recent  years,  many  visual  interface  to  database  systems  have  been  proposed(Hero 
1980,  Lars  1984,  Wu  1986,  Wu  1987,  Wu  1988)  with  different  approaches  and  different 
designs.  Good  visual  interface  design  strives  for  clarity,  consistency,  and  attractive 
appearance(Foley,  1987).  Wu  and  Hsiao  (1988)  have  identified  six  principles  for  the 
development  of  visual  interface  design  GLAD  (Graphics  LAnguage  for  Database).  The 
program  should  be  able  to  : 

•  Provide  more  information  when  asked. 

•  Recover  from  the  unintended  or  erroneous  operation. 

•  Perform  the  same  operation  in  more  than  one  way. 

•  Perform  logically  equivalent  operations  in  a  consistent  manner. 

•  Display  multiple  information  at  the  same  time. 

•  Display  multiple  views  of  the  dame  information. 

The  important  of  visual  interface  design  has  been  demonstrated  in  a  variety  of 
studies.  For  example,  Tullis  (1981)  found  that  redesigning  a  key  display  from  a  system 
for  testing  telephone  lines  resulted  in  a  40%  reduction  in  the  time  required  by  the  user 
to  interpret  the  display.  Wu  and  Hsiao  (1988)  found  that  designing  GLAD  interface 
utilizes  direct  manipulation  of  objects  in  the  database  through  the  use  of  buttons  and  other 
controls  which  make  using  and  learning  the  system  extremely  easy.  Likewise,  Keister  and 
Gallaway  (1983)  found  that  redesigning  a  series  of  screens  resulted  in  a  25%  reduction 
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in  the  total  processing  time  and  a  25%  reduction  in  error  rates. 

Visual  infoimadon  such  as  graphical  representation  and  pictures  are  more  powerful 
than  words  as  means  of  communication.  Graphics  and  pictures  also  aid  understanding  and 
remembering.  In  this  section  we  discuss  visual  programming,  the  categories  of  visual 
programming  and  its  advantages  and  limitations  each  category  in  general. 

1.  Visual  Programming 

In  the  early  days  of  the  interactive  computing  when  the  hardware  and  software 
were  limited,  system  designers  focused  on  processor  efficiency,  commonly  more  at  the 
expense  of  the  user  than  on  the  human  convenience.  Additionally,  as  we  stated  in  chapter 
I,  almost  all  traditional  languages  were  not  designed  for  visual  interactions. 

However,  as  hardware  costs  dropped  and  computer  systems  became  more 
widespread,  data  set  sizes  grow,  algorithms  become  more  complex,  the  cost  of  user’s  time 
greatly  increase.  The  price  of  RAM  chips  fell  enough  to  accommodate  the  huge  memory 
demands  of  bit-mapped  graphics.  These  hardware  and  personnel  costs,  coupled  with 
competition  in  the  marketplace,  and  the  need  of  visualization  systems,  have  caused 
designer  to  focus  on  human-computer  interface.  This  situation  gives  challenge  to  designer 
to  bring  computer  capabilities  more  powerful  than  currently  available,  use^Iy  and  simply 
to  the  user  without  special  training. 

As  a  result,  in  recent  years,  the  use  of  visual  information  has  gained 
momentum  in  programming.  This  kind  of  programming,  called  visual  programming,  is 
done  through  visual  interaction  with  the  system.  Visual  progranuning  provides  more  direct 
communication  between  a  person  and  a  machine  and  makes  it  easier  to  create  programs. 
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Visual  programming  makes  greater  use  of  extensive  visual  information  processing 
capabilities  of  human,  and  by  doing  so,  provide  for  totally  new  types  of  human-computer 
interaction(Tullis,  1988). 

2.  The  Categories  of  Visual  Programming 

Programming  can  be  defined  as  specifying  a  method  for  doing  something  the 
computer  can  do,  especially  in  terms  the  computer  can  interpret.  To  attempt  the  ease  of 
programming,  of  course,  is  not  new.  People  have  been  trying  to  design  or  improve 
programming  language  for  the  ease  of  use  and  the  ease  of  learning  for  several  years. 
However,  language  design  has  been  evolutionary  rather  than  revolutionary.  Since 
programming  is  currently  to  be  made  more  accessible  to  people,  it  become  apparent  that 
radical  departure  from  traditional  programming  into  visual  programming. 

They  are  several  aspects  of  programming  :  the  languages  and  environment 
used  for  the  specifications;  the  specifications  themselves;  the  display  of  data  involved  in 
the  execution  of  the  specifications;  the  determination  of  whether  the  computer  has 
executed  a  specification  as  expected;  etc.  All  aspects  of  programming  can  be  applied  by 
visual  programming.  To  determine  whether  a  specific  software  is  visual  programming  or 
not,  is  the  consideration  of  some  meaningful  graphical  representations  must  be  used  in 
the  programming  process. 

From  the  recent  work  reported  in  the  literature,  we  see  that  visual 
programming  progress  in  two  directions.  In  one  direction,  languages  are  designed  for 
handling  visual  information;  for  supporting  visual  interactions;  and  for  programming  with 
visual  expressions.  In  another  direction,  pointing  devices  and  graphical  representations  are 
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used  to  provide  visual  environments  for  program  development  and  execution;  for 
information  retrieval  and  presentation;  and  for  software  design  and  understanding(Nan  C. 
Shu,  1988). 


a.  Languages  for  handling  Visual  Infomuttion 

This  language  is  designed  to  process  image  or  pictorial  information.  The 
image  processing  systems  designed  for  handling  of  two-dimensional  pictorial  data  that  can 
be  applied  for  specific  purpose  such  as  an  engineering,  a  geographical,  a  medical  and  a 
scientific  applications.  Now,  incorporation  between  conventional  database  query  languages 
and  image  processing  systems  have  already  be  implemented  as  augmented  conventional 
query  languages.  Languages  fall  into  this  category  are  GRAIN(  the  Graphic-oriented 
Relational  Algebraic  INterpreter),  QPE(Query-by-Pictorial-Example),  QBE(Query-by- 
Example),  PSQL(Pictotial  Stractured  Query  Language). 

The  benefits  of  the  system  that  it  can  store  and  retrieve  pictorial 
infomuttion  into  database.  The  system  also  includes  zooming  technique,  such  as  vertical 
zoom,  horizontal  zoom  and  diagonal  zoom,  makes  the  system  extremely  attractive.  The 
complexity  increases  when  we  have  a  large  number  of  pictures  or  very  large  pictures. 

b.  Languages  for  supporting  Visual  Interaction 

Languages  in  this  category  are  mainly  designed  to  define,  create,  and 
manipulate  pictorial  symbols.  It  is  also  called  Iconic  Programming.  They  are  motivated 
by  the  need  to  have  the  ease  of  using  and  marupulating  of  pictorial  Haty  The  languages 
that  fall  in  this  category,  generally  support  visual  representations  and  vooal  aaeaciiaai. 
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Although  the  languages  themselves  are  actually  textual,  not  visual.  Languages  fall  into 
this  category  are  ICDL(icon-class  description  language),  HI- VISUAL,  and  Squeak.  ICDL 
is  language  that  consists  of  several  statements.  Each  statement  accepts  some  value  and 
performs  some  graphical  operation.  HI-VISUAL  is  a  language  supporting  visual 
interaction  in  programming.  Squeak  is  a  language  supporting  communication  with  a 
pointing  device. 

The  advantage  of  this  approach  over  textual  programming  is  that  it  can 
make  learning  and  understanding  easier,  especially  for  non-computer  specialists.  Iconic 
is  effective  for  introductory  courses  in  languages.  Hirakawa,  Tanaka,  Ichikawa(1984) 
proved  through  an  experiment  that  iconic  languages  are  easier  to  learn  than  textual  one. 
Iconic  programming  may  be  good  for  small  programs.  In  contrast,  iconic  programming 
is  the  wasteful  use  of  screen  space.  It  make  difficult  to  make  a  large  program. 

c.  Languages  for  programming  with  visual  expressions 

Languages  that  fall  into  this  category,  focus  on  allowing  users  to  program 
with  visual  expressions.  These  languages  are  usually  called  the  "visual  programming 
languages".  They  use  some  visual  representations(textual,  numeric,  pictorial  or  audio)  as 
means  of  programming.  Almost  all  visual  programming  languages  reported  from  literature 
fall  into  three  categories.  First  category  is  Iconic  languages.  In  Iconic  languages,  icons 
and  graphical  symbols  are  designed  to  play  the  central  role  in  programming.  Second, 
Charts  and  Diagrams  are  either  incorporated  into  programming  development,  or  made  into 
machine-interpretable  units  to  be  used  in  conjunction  with  traditional  programming 
languages.  Third,  Form-based  languages  lie  between  chart/diagrams  and  iconic  languages. 
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d.  Visualization  of  Data  or  Information  about  Data 

This  approach  typically  concentrates  in  the  environment  area  which  deals 
with  visualization  of  data  or  information  about  data.  The  data  are  kept  in  traditional 
databases.  It  expressed  in  graphical  form  and  presented  to  the  user  in  a  spatial  framework. 
Tools  are  provided  which  allow  the  user  to  make  connection  between  data  from  these 
soiuces  and  their  associated  graphical  representations.  By  using  pointing  device  or 
joystick  the  user  directly  manipulates  data  in  the  databases.  The  examples  of  this  category 
are  SDMS(Spatial  Data  Management  System),  VGQF(Video  Graphic  Query  Facility), 
INCENSE(a  System  for  Displaying  Data  Structures)  etc. 

e.  Visualization  of  Program/  Execution 

Languages  in  this  category  primarily  designed  to  provide  graphical 
representation  for  the  visualization  of  programs,  run  time  states  and  results.  The  goal  is 
to  use  graphical  displays  to  make  the  program  development  and  testing  easier.  This  is 
benefits  not  only  to  begirmers  learning  how  to  program,  but  also  to  experience 
programmer  dealing  with  program  development  Activities  in  this  area  span  from  "pretty- 
printing"  the  source  code,  watching  the  execution  program  in  multiple  displays  or  in 
animated  forms. 

/.  Visualization  of  Software  Design 

There  are  many  activities  in  the  software  development  process.  The 
activities  include  requirement  analysis,  functional  specifications,  design  decisions, 
implementation,  system  structures.  Languages  that  fall  into  this  category  provide  graphical 
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forms  in  the  software  development  environment.  People  who  design,  use,  or  maintain 
interact  graphically  with  the  system.  The  examples  of  this  category  are 
PeaSys(Programming  Environment  for  the  Graphical  Analysis  of  SYStems),  PV  (Program 
Visualization)  system. 

g.  Visual  Coaching 

Visual  Coaching  actually  attempts  to  produce  program  based  on  what  has 
been  shown.  It  can  be  characterized  as  "Do  what  I  show  you"  or  "Do  according  to  my 
signal."  Typically,  the  users  show  the  computer  how  to  do  the  desired  computation  by 
demonstrating  with  some  sample  data.  The  system  then  applies  the  demonstrated  behavior 
for  application  with  other  data.  Program  development  completely  depends  on  interactions. 
Languages  that  fall  into  this  category  are  Programming  By  Example,  Programming  By 
Rehearsal,  AutoProgramming. 

There  are  several  advantages  using  this  approach.  This  approach  attempts 
to  extend  ideas  to  abstract  concepts  in  programming.  Because  most  people  are  much 
better  dealing  with  concrete  and  specific  objects  than  with  abstract  ideas.  So,  by 
demonstration  and  examples  can  help  people  to  understand  abstract  concepts.  The  users 
find  it  easily  to  demonstrate  what  they  want  done.  Additionally,  this  approach  can  assist 
the  thinking  and  learning  process  of  human  beings.  This  approach  relies  on  graphical 
interactions,  so  that  program  construction  can  be  easy,  quick,  and  enjoyable.  On  the  other 
hand,  this  approach  has  limitations.  First,  physical  limitations  imposed  by  the  space  on 
the  screen.  Second,  the  difficulties  to  express  an  ideas  in  more  abstract  and  general  terms. 
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B.  WINDOW  INTERFACE 


Windowing  interfaces  got  their  start  at  the  XEROX  Palo  Alto  Research  Center 
(PARC)  in  the  mid-1970’s.  In  1984,  they  were  popularized  by  Apple  Computers, 
particularly  the  Macintosh  line,  and  later,  followed  by  Microsoft  and  other  developers. 
Window  interfaces  has  become  popular  primarily  because  they  allow  separate  activities 
to  be  put  in  physically  separate  parts  of  the  computer  screen.  This  physical  separation  is 
even  more  inq)ortant  when  the  operating  system  allow  multiple  activities  to  operate  at  the 
same  time  ("muldprocessing")-  Window  interface  provides  iiuiny  of  the  important  features 
of  modem  user-computer  interfaces  applications  that  show  results  in  different  areas  of  the 
display,  the  ability  to  resize  the  screen  areas  in  which  those  applications  are  executing, 
pop-up  and  pull-down  menus,  and  dialogue  boxes,  the  ability  of  repositioned  windows. 
Now,  many  windowing  interfaces  offer  command-key  or  keyboard  alternatives  for  many 
commands  as  well,  providing  both  ease  of  use  for  novices  and  the  less  experienced,  and 
speed  for  who  can  type  faster  than  they  point  to  menu  and  click  on  a  selection. 

Window  interface  has  two  important  parts.  The  first  is  the  window  manager,  which 
allows  the  user  to  interact  with  computer,  request  that  windows  be  created,  resized, 
repositioned,  opened,  and  so  on.  The  second  is  the  underlying  functional  component,  the 
window  system,  which  actually  causes  windows  to  be  created,  resized,  moved,  and  so  on. 

1.  Window  Manager 

The  window  manager  uses  user-interface  services  provided  by  the  window 
system,  prennotes  consistency  and  makes  application  easier.  This  includes  all  aspects  that 
are  visible  to  user  such  as  a  graphic  package,  editors,  users  interface  tool  kits,  typescript 
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package,  etc.  The  window  manager  consists  into  two  parts  :  the  presentation,  which  is 
composed  of  the  pictures  that  the  window  manager  displays,  and  the  operations,  which 
are  the  commands  the  user  can  give  to  manipulate  the  window  and  their  contents.  For 
example  windows  that  demonstrate  different  aspects  of  the  presentation,  including  patterns 
or  pictures  for  the  area  where  there  are  no  windows,  title  lines  and  border  for  windows, 
etc  may  be  provided  the  operations  for  windows  include  moving  them  around  on  the 
screen  and  specifying  their  size. 

One  important  aspect  of  the  presentation  of  the  window  is  whether  they  can 
overlap,  or  not.  This  also  some  time  called  desktop  metaphor,  since  windows  can  cover 
each  other  like  pieces  of  paper  can  cover  on  the  desktop.  The  other  alternative  is  called 
tiled  windows,  which  means  that  windows  are  not  allow  to  cover  each  other.  Some 
researchers  still  question  whether  overlapping  windows  offer  more  benefits  than  tiled,  at 
least  above  a  certain  screen  size,  on  the  grounds  that  screens  with  overlapping  windows 
become  so  messy  the  user  gets  lost  Others  argiM  that  overlapping  windows  more  closely 
match  user’s  work  patterns,  since  no  one  arranges  the  papers  their  physical  desktop  in 
neat  horizontal  and  vertical  rows.  Among  software  engineers,  however,  overlapping 
windows  seem  to  have  won  for  the  user  interface  world(Tekla  s.  Perry,  and  J.,  Voelcker 
1989).  Another  important  aspect  of  the  presentation  of  the  window  is  the  use  of  icons. 
These  are  small  pictures  that  represent  windows,  to  manage  too  many  windows 
conveniently. 


2.  Window  Systems 


Window  systems  implement  the  basic  functionality  of  the  window  interface. 
They  handle  the  display  of  graphics  in  windows  and  access  to  the  various  input  devices 
(usually  a  keyboard  and  a  pointing  device  such  as  a  mouse).  The  primary  interface  of 
window  systems  is  to  other  programs,  and  it  is  called  the  manager’s  application  or 
program  interface.  The  programs  built  on  the  window  systems  are  usually  called  client 
program,  which  in  turn  use  the  capabilities  of  the  window  system,  itself  usually  called 
the  server  program.  A  graphics  package  is  often  integrated  with  the  window  system. 
Figure  2.1  shows  how  the  window  system  and  its  graphics  package  typically  relate  to 
other  system  con^onent 


Figure  2.1  The  Window  System 


C.  KNOWLEDGEPROOVINDOWS) 


Today,  several  application  development  tools  for  Windows  3.0  are  available  in  the 
marketplace.  Some  products,  like  Asymetrix  ToolBook  offer  a  development  environment 
for  sophisticated  end-users.  Others,  like  Whitewater  Group’s  Actor  are  designed  for 
programmers.  One  that  fulfills  the  needs  of  both  groups  is  KnowledgePro(Windows). 

KnowledgePro(Windows)  combines  several  significant  new  technologies  in  a 
remarkably  accessible  toolbox: 

•  Windows  development  capabilities 

•  hypertext  and  hypermedia  access 

•  expert  system  strength 

This  technology  makes  it  poswble  to  create  Windows  applications  that  combine  the 
ability  to  link  among  various  elements  of  a  collection  of  infonnation,  to  enhance  the  end- 
user  interface.  It  also  makes  it  possible  to  build  Windows  programs  that  can  exhibi: 
behavior  that  would  probably  agree  denx>nstrates  at  least  rudimentary  intelligence.  (Dan 
Shafer,  1989) 

The  following,  we  discuss  how  to  start  KnowledgePro,  user  interacts  with  computer, 
and  some  tools  provide '  by  KnowledgePro. 

1.  Getting  Started 

Figure  2.2  shows  die  development  environment  running  a  simple  application. 
KnowledgePro(Windows)  includes  an  integrated,  multiple-document  editor  for  easy 
manipulation  of  source  code  and  text  We  can  run  quickly  just  by  selecting  Go  hrom  the 
menu.  Whenever  an  error  occurs,  we  are  return  to  edit  window  at  the  line  which  caused 
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the  problem.  KnowledgeProOVindows)  provides  a  full  set  of  debugging  tools,  including 
Trace,  Single-step  and  the  ability  to  interact  with  running  application. 
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Figure  12  KnowledgePro  Development  Environment 


The  backbone  of  KnowledgePro(Windows)  is  KnowledgePro  language:  an 
event-driven,  message-based  language  with  object  oriented  features  like  multiple 
inheritance.  Language,  editor  and  tools  provided  by  Knowledge  processing  environment, 
let  the  user  communicate  expertise  using  the  computer.  The  program  that  the  user  creates 
in  this  environment  is  called  Knowledge  base.  The  example  of  Knowledge  base  is  shown 
below: 


windowO. 
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contents  is  *#e  #niIntroduction#ni 


#niMotivation#ni 
#mThesis  Organization#m’. 
text(?contents). 
topic  niark(iteni). 

message  is  read(’course.txt%  concat(V/*?item),V/’). 

close(*course.txt’). 

say(?message). 

text(?contents). 

end. 

Each  Knowledge  base  consists  of  one  or  more  topics  that  contain  commands, 
functions,  and  subtopics.  These  topics  perform  actions,  prescribe  a  behavior,  or  service 
hypertext  requests.  Topics  specify  what  happens  when  the  user  clicks  on  or  selects  an 
object  Once  the  user  links  topic  to  screen  object,  the  object  will  act  according  to  its 
defined  behavior.  A  special  topic  named  mark  can  be  defined  as  a  "catch  all"  topic  for 
a  group  of  hypertext  topic  that  behave  in  a  similar  maimer.  This  means  that  if  a  topic  with 
the  same  name  as  the  hypertext  selected  can  not  be  found,  the  topic  named  mark  is  called 
in  its  place.  If  mark  is  found,  the  hypertext  phrase  selected  is  passed  to  it  as  a  parameter, 
otherwise  a  message  will  appear  that  says  no  more  information  is  available. 

2.  User  Interaction 

One  of  the  advantages  of  using  a  computer  is  that  we  can  gather  information 
from  the  user.  Through  the  knowledge  base,  the  designer  coimnunicates  to  the  user,  and. 
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can  also  provide  a  means  for  the  user  to  respond.  Like  in  real  conversation,  this  response 
influences  the  subsequent  direction  of  the  exchange.  KnowledgePro  let  users  use  many 
different  screen  objects  such  as  buttons,  check  boxes,  list  boxes,  radio  buttons,  edit  lines, 
edit  boxes,  scroll  bar  etc.,  that  can  be  used  to  accomplished  a  desired  conversation.  In 
other  word,  KnowledgePro  includes  the  ability  to  create  every  kind  of  control  available 
in  the  Windows  environment.  For  example,  edit  lines  are  used  for  getting  values  from  the 
user,  and  created  using  edit_line  command.  KnowledgePro  provides  many  different  types 
of  screen  objects.  Each  one  has  its  own  characteristics  making  it  suitable  for  certain  types 
of  information. 

Any  word,  phrase  or  screen  object  can  be  linked  to  a  KnowledgePro  topic. 
This  lets  us  build  hypertext  application  with  flexibility  and  power.  By  knowing  which 
screen  objects  to  select  for  which  operations,  how  screen  objects  operate,  how  to  arrange 
the  objects  in  uncluttered,  how  to  make  visually  pleasing  display,  we  can  create  an 
effective  visual  interface  application. 

3.  Some  Tools  Provided 

Effective  user  interface  and  the  communication  of  knowledge  are  becoming 
more  and  more  important  as  computers,  applications  and  users  needs  all  increase  in 
complexity.  KnowledgePro(Windows)  is  provided  by  tools  that  lets  the  designer  and  the 
user  communicate  with  each  other  about  the  user’s  needs,  the  resources  available  and  the 
task  at  hand  as  conversation  were  taking  place.  Some  tools  provided  by  KnowledgePro 
Windows  are  the  following: 
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•  The  KnowledgePro  Editor  that  lets  the  users  arrange  edit  windows,  edit  text,  make 
backup,  compile  and  execute  an  open  Knowledge  base  file. 

•  Debugger  that  lets  the  users  trace  the  program  execution,  list  topics  calls  in  a 
knowledge  base,  evaluate  a  knowledge  base,  inspect  the  running  knowledge  base 
with  debug  topics. 

•  Dynamic  Data  Exchange(DDE)  for  communicating  with  another  window 
application. 

•  Design  Tools  that  lets  the  users  create,  move  and  resize  windows  object  in  a 
window,  generate  the  KnowledgePro  code  and  copy  to  their  application. 

•  Dynamic  Link  Libraries(DLL)  that  lets  the  users  run  external  DOS  program  and 
extend  the  environment. 


f 
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in.  DESIGN  AND  IMPLEMENTATION 

A.  PROBLEM  STATEMENT 

Traditional  approaches  to  database-system  design  and  implementation  involve  text- 
oriented  data  access  with  their  inherent  lack  of  flexibility  and  extensibility.  An  alternative 
to  the  traditional  approach  to  database-system  design  and  implementation  is  visual 
interfaces.  How  does  visual  interface  software  effectively  support  data  manipulation  in  a 
database  system  ?  What  are  the  benefits  of  using  visual  interface  compared  to  regular 
text-oriented  access  ?  To  answer  these  questions  we  have  developed  prototype  application 
Emphasis  Area  Information  System(EAIS)  using  visual  interface  software. 

1.  The  Current  System 

The  selection  of  electives  by  students  in  the  computer  science  departement  is 
a  manual  process.  Currendy,  a  student  receives  a  curriculum  package  which  includes  a 
schedule  of  the  required  courses  for  the  final  five  quarters.  A  short  description  of  the  four 
emphasis  areas  available  along  with  the  required  and  the  optional  electives  necessary  to 
fulfill  the  requirements  for  the  respective  emphasis  areas.  When  the  electives  are  offered, 
the  student  fulfill  the  requirements  of  at  least  one  emphasis  area.  The  current  system 
involves  excessive  administrative  effort  on  the  part  of  the  curriculum  staff  and  the  student. 

2.  The  Proposed  System 

To  provide  a  automated  database  system  which  will  consist  of  the  required 
and  optional  electives  for  each  emphasis  area  enabling  Computer  Science  personnel  to 
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select  electives  from  this  interactive  scheduling  program.  This  system  will  support 
Computer  Science  students;  the  Academic  Associate;  the  Curriculum  Officer  as  well  as 
the  Registrar.  It  will  enable  the  user  to  view  the  curriculum  requirements,  and  the  elective 
requirements  to  supports  various  emphasis  areas. 


3.  The  Design  Methodology 

The  first  step  in  designing  a  visual  interface  is  to  decide  what  the  interface 
is  meant  to  accomplish.  We  use  a  prototyping  approach  for  developing  and  implementing 
EAIS.  In  this  approach,  we  initially  develop  a  conceptual  design  for  implementation  of 
EAIS.  Figure  3.1  illustrates  the  Data  Flow  Diagram  of  our  system.  We  then  work  on 
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elements  of  the  functional  design  and  dialog  style.  Finally,  the  prototyping  tool  software 
(KnowledgePro)  can  be  used  to  develop  and  create  screens  or  reports  according  to  a 
dialog  style  prototype.  The  reason  of  using  the  prototyping  approach  in  our  system  is  to 
emphasize  on  speedy  implementation  and  speedy  modifiability. 

4.  Design  Considerations 

In  our  system,  we  apply  a  number  of  design  principles  to  help  ensure  good 
human  factors  engineering  in  a  design.  They  are  to  be  consistent,  provide  feedback, 
minimiMi  error  possibilities,  provide  error  recovery,  accommodate  multiple  skill  level,  and 
minimiTc  memorization.  These  and  other  principles  are  discussed  more  fully  in  (Morland 
1983.  Foley  1987,  Shneiderman  1987,  Mayhew  1990,  Wu  1988). 

B.  THE  GOAL  OF  IMPLEMENTATION 

To  study  the  effectiveness  of  developing  visual  user  interface  application  using 
software  development  tools,  we  present  the  experience  of  developing  a  simple  visual 
interface  database  application  using  toolkit  KnowledgePro(Windows).  The  goal  of  the 
implementation  is  to  show  how  easy  and  what  are  the  benefits  of  using  KnowledgePro 
(Windows)  to  develop  visual  user  interface  of  Emphasis  Are  Elective  Information  System. 

C.  THE  EMPHASIS  AREA  INFORMATION  SYSTEM 

1.  The  Object  of  EAIS 

There  are  five  objects  in  our  system.  Course,  Quarter,  Emphasis,  Elective  and 
Student.  The  relationship  of  the  objects  of  the  system  is  shown  in  Figiue  3.2. 
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a.  Course  Object 

The  Course  Object  is  established  by  Registrar.  The  properties  of  the 


Course  Object  consists  Course  Number,  Course  name,  time  slot  for  lecture  and  laboratory 
and  course  description. 


b.  Emphasis  Object 

The  Emphasis  Object  is  established  by  the  Academic  Associate  and 
various  sponsor,  to  concentrate  on  specific  area  within  Computer  Science.  The  properties 
of  the  Enq)hasis  Object  include  the  name  of  the  emphasis  area,  a  description  of  the 
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purpose  of  the  emphasis  area  and  a  listing  of  elective  courses  that  will  fulfill  the  emphasis 
area.  The  elective  course  consists  of  the  Required  Elective  and  Optional  Elective. 

c.  Elective  Object 

This  Elective  Object  is  specified  by  the  Curriculum  sponsor  via  Academic 
Associate  and  is  outlined  in  the  Naval  Postgraduate  School  Course  Catalog  1991.  The 
properties  of  the  Elective  Object  consists  of  the  required  course  number,  emphasis  number 
and  the  elective  type. 

d.  Quarter  Object 

The  Registrar  provide  the  Tentative  Course  Offering  booklet  which 
contains  information  about  the  expected  course  offering  for  the  next  year  at  Naval 
Postgraduate  School.  The  Quarter  Object  is  the  subset  of  that  listing  which  constains  the 
courses  that  fulfill  the  requirements  of  the  various  emphasis  areas  extracted  from  the 
Registrar’s  Tentative  Course  Offering  booklet.  This  properties  of  the  Quarter  Offering 
object  includes  the  quarter  name,  course  number,  course  name  ,  when  the  course  is 
projected  to  be  offered  in  the  next  academic  year. 

e.  Student  Object 

The  Student  Object  contains  a  student  academic  information.  This 
information  is  provided  by  the  student.  The  properties  of  Student  Academic  Information 
include  student’s  name,  rank,  section,  selected  emphasis  area,  selected  courses,  taken 
courses. 
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2.  Application(functional)  Requirements 

The  EAIS  is  supponed  by  the  database  which  consists  of  the  objects  described 
in  the  proceeding  section.  The  system  also  interfaces  with  the  external  entities(tenninators) 
in  roaching  decision  on  which  the  electives  being  requested  will  meet  both  the  emphasis 
area  requiroments  and  the  course  scheduling  constraints.  The  terminators  that  interface 
with  the  system  include  the  Academic  Associate,  the  Curricular  Officer,  the  Registrar  and 
the  student  user.  The  interfaces  between  the  various  terminators  and  the  system  are 
detailed  below  : 

a.  Academic  Associate 

The  Academic  Associate  is  responsible  for  : 

•  representing  the  interests  of  the  sponsoring  activities  for  the  curriculum. 

•  providing  the  required  courses  for  successful  completion  of  the  curriculum. 

•  determining  the  requirements  for  the  four  emphasis  areas  and  providing  a  list  of 
required  and  optional  electives  that  will  fulfill  them. 

The  course  requiroments  data  provided  by  the  Academic  Associate  are 
entered  into  a  database  and  accessed  by  the  system  to  support  end  user  requiroments. 
Modification  of  either  the  cuiriculum  requirements  or  the  Emphasis  Area  requiroments 
will  be  conducted  by  the  Curricular  Officer  at  the  direction  of  Academic  Associate. 
Academic  Associate  receives  the  final  report  from  the  system  and  validates  the  request 
prior  to  its  entry  into  the  curriculum  database. 

b.  The  Registrar 

The  Registrar  provides  the  Tentative  Course  Offering  updated  per 
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quarterly  for  Naval  Postgraduate  School  from  which  the  subset  Emphasis  Area  Course 
Offering  Object  is  extracted.  The  Emphasis  Area  Course  Offering  will  be  created  and 
entered  into  database  by  Curricular  Officer.  The  Registrar  receives  final  repon  as  soon 
as  it  has  been  entered  into  the  curriculum  database. 

c.  The  Curricular  Officer 

The  Curricular  Officer  wiU  update  Emphasis  Area  Course  Offering  Object 
as  Registrar  modifies  the  annual  course  offering  listing  for  Naval  Postgraduate  School. 
Additionally,  he  modifies  the  Emphasis  Area  Object  and  the  schedule  as  directed  by  the 
Academic  Associate.  The  Curricular  Officer  receives  the  final  report  and  has  it  entered 
into  the  curriculum  database. 

d.  The  Student 

The  student  is  primary  interactive  user  of  the  system.  The  student  enters 
initial  data  for  the  final  report  (Student  name,  rank  and  section),  and  the  interacts  with  the 
system  to  complete  the  final  report.  The  Student  selects  an  emphasis  area  and  proceeds 
to  select  the  quarter  he  is  interested  in.  The  system  will  generate  a  listing  of  the  Computer 
Science  core  courses  that  the  student  will  be  required  to  take  during  that  quarter.  The 
system  also  presents  a  listing  of  all  elective  thru  are  contained  in  the  specified  emphasis 
area  that  are  offered  during  the  quarter  that  is  being  viewed. 

The  student  has  the  option  to  view  additional  information  about : 

•  the  elective  he  is  interested  in,  or 

•  he  may  enter  the  elective  into  a  tentative  final  report  format,  or 

•  he  may  select  a  different  quarter/  emphasis  area  for  viewing. 
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Figure  3J  The  Hierarcbycal  Menu  Module 


Once  the  student  has  created  a  tentative  final  report  he  has  the  option  of 
re-entering  the  system  to  modify  the  report  or  printing  the  final  report  Whenever  the  final 
report  is  created,  the  student  signs  the  report  and  forwards  it  via  the  Academic  Associate 
to  the  Curricular  Officer  and  it  is  eventually  entered  into  Curriculum  database. 

3.  Internal  Processes 

The  internal  processes  for  the  system  include  initial  data  entry  and  updating 
mechanisms  for  the  database  in  the  system.  In  the  previous  section  we  see  that  EAIS  has 
five  data  object  Every  data  object  is  stored  as  text  file  namely  Emphasis.txu  Quarter.txt. 
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Point  and  dick  your  mouse  to  select  Job  on  the  items  above: 


Figure  3.4  The  Main  Menu 

Elective.txt,  Course.txt  and  Student.txt.  Because  KnowledgePro  only  supports  text  file.  To 
perform  updating  and  querying  a  database,  we  implemented  the  list  structure  supported 
by  KnowledgePro.  These  mechanisms  can  be  doire  by  first  reading  the  data  into  lists.  We 
then  manipulate  the  data  using  list  operations  to  get  the  desired  result 

In  our  system,  we  use  the  action/object  strategy  in  structuring  hierarchy  (see 
figure-3.3).  With  the  action/object  strategy,  the  highest  level  menu  (main  menu)  begins 
with  a  list  of  action  menus.  When  the  user  selects  on  an  action,  lower  level  menus  will 
pick  up  an  object  on  which  to  peiform  the  action.  Menu  selections  are  attractive  because 
they  can  eliminate  training  and  memorization  of  complex  command  sequence.  We  wrote 
the  menu  items  using  familiar  terminology,  so  it  helps  the  user  select  an  item  easily. 
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Menus  serve  the  purpose  of  showing  the  options  the  user  can  choose. 


The  main  menu  (figure  3.4)  consists  of  the  Exit  and  Help  pull-down  menu 
options,  the  Query  Database  option  and  the  Database  Management  option.  The  Exit 
option  ends  the  main  menu  session.  We  use  three  different  methods  to  end  the  session. 
Go  to  the  previous  session,  first  we  select  the  Exit  option  and  we  then  select  the 
Previous_Menu  option.  To  exit  the  system,  first  we  select  the  Close  option  from  the 
control  menu.  Secondly,  by  selecting  the  Quit jhe_sy stem  option  from  the  Exit  pull-down 
menu  option.  This  means  that  the  system  provides  a  way  to  accommodate  user  of  multiple 
skill  levels.  The  Help  option  provides  information  to  the  user  about  the  main  menu 
choices.  During  human-^'or  puter  interaction,  the  Help  option  can  minimize  error 
possibilities.  When  the.  user  selects  the  Query  Database  option,  the  Query  Database 
module  promptly  appears  on  the  screen.  This  module  is  used  for  querying  the  database 
and  generating  the  reports  (see  figure  3.5).  Likewise,  the  Database  Management  module 
will  appear  on  the  screen  as  soon  as  the  user  selects  the  Management  Database  option 
(figure  3.14). 

4.  The  Query  Database  Module 

The  Query  Database  rrxxiule  consists  of  button  options.  There  are  the 
Emphasis _Areas,  the  Elective  Offered,  the  Course  Elective,  the  Option  Area  and  Course 
Selection  and  the  Generate  Courses  selection  options. 
a.  Query  Emphasis  Areas 

This  tiKxlule  is  for  querying  the  Emphasis  area.  To  accomplish  this  job, 
we  first  select  the  Emphasis_Area  pull-down  menu  option.  We  then  select  one  of  the  track 
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Figure  3^  The  Query  Module 


options.  For  instance,  when  we  select  the  Miliuiry_Data_Processing  option,  the  system 
will  display  a  window  firame  shown  in  figure  3.6. 

b.  Query  Elective  Courses 

The  Query  Elective  module  will  produce  the  list  of  elective  courses 
associated  with  given  the  emphasis  area  (see  figure  3.7).  Whenever  the  user  want  to  know 
more  information  about  specific  course,  then  he  or  she  can  select  the  desired  course  from 
the  lists.  The  system  will  give  a  course  information  shown  in  figtire  3.8. 

c.  Query  Elective  Offered 

The  Elective  Offered  module  gives  a  list  of  the  elective  courses  offered 
in  given  specific  quarter.  For  example,  when  we  select  the  Summer  option  from  the 
Quarterjiame  pull-down  menu  and  the  91  from  the  Year  pull-down  menu,  the  system 
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Figure  3.7  The  Query  Elective  Course  (frame  1) 
will  produce  the  course  offering  in  summer  91  (see  figure  3.9). 
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EsH  Uelp  Erint 
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[  Course  Number :  cs4322 
CO(j[  Course  Nsme  :  Adv.  Ostsbsse  Sys.  Semlnsr 
Credit  Lec/Lsb  :  3  / 1 
Prerequisite  :  cs3320  cs4312 

Crs  description :  covers  the  current  research  on  database 
topic  that  have  not  been  dlacusaed  prior. 

Course  offered  In  Winter  91  Summer  91 

Winter  92  Summer  92  Winter  93 
Summer  93 


FVooram  ManaoiKnowledaoPro 


Figure  3^  The  Query  Elective  Course  (frame  2) 


neoram  ManagiKnoudedaePro 


Figure  3.9  The  Quarter  Offering 
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d.  Option  Area  and  Course  Selection 

This  mcxiule  gives  the  Hnal  product  of  the  system  is  report  entitled 
"COMPUTER  SCIENCE(368)  EMPHASIS  AREA  DECLARATION  AND  COURSE 
SELECTION".  It  is  the  recommended  courses  suggested  by  the  system.  This  report 
consists  information  about  student’s  name  and  rank,  class  section,  the  emphasis  area 
selected,  the  emphasis  area  electives  requested  and  alternate  elective  requested  for  the 
final  five  quarters  of  the  curriculum.  The  report  is  submitted  by  the  student  and  is 
forwarded  the  Academic  Associate  and  Curricular  Officer  and  is  entered  in  the  Curricular 
Database  to  generate  Schedule  requests  from  Registrar’s  Office  (see  figure  3.10  and  figure 
3.11). 


Figure  3.10  The  Elective  Course  Selection  (frame  1) 
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ELECTIVE  COURSE  SELECTION 


EsK  Uclp  Erlnt 


COMPUTER  SCIENCE  (368) 

OPnON  AREA  DECLARATION  AND  COURSE  SELECTION 

EMPHASIS  AREA  :  Software  Engineering 
STUOENT-IO  :  123-456789 

NAME :  Chuck  Peebody 
RANK  :  CepMin 
SECTION  :  Ce03 

COURSE  COURSE  COURSE  COURSE  COURSE 


^  war.  fthansU 

i-”  ••  cuar^e  f.huaid  ae  rakan 


Program  ManagiKnoariedgePre 


Figure  3.11  The  Elective  Course  Selection  (frame  2) 


KnowledgePrSnapAppftogrom  Manager 


Figure  3.12  The  Course  Selection  (frame  1) 
e.  Generate  Course  Selection 

It  is  possible  that  the  selected  courses  are  not  offered  in  the  quarter  the 
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Figure  3.13  The  Course  Selection  (frame  2) 


user  selects.  In  figure  3.1 1  the  course  number  cs4S20  will  not  be  offered  in  Fall  91.  The 
repon  also  says  that  the  student  first  should  take  the  prerequisite  course  for  cs4322.  The 
Generate  Elective  Course  selection  module  provides  a  modification  mechanisms  to  change 
the  undesired  courses.  There  are  several  steps  to  update  the  undesiied  course  selection 
shown  in  figure  3.11.  First  we  select  the  Fall  option  from  the  Quarter_Name  pull-down 
menu.  We  then  select  the  student  name  from  the  student  identifrcation  list.  Finally  we 
select  the  91  option  from  the  Year  pull-down  menu.  The  system  wiU  produce  a  window 
frame  shown  in  figure  3.12.  Instead  of  choosing  cs4S20,  we  replace  it  with  cs3320.  If  we 
commit  by  clicking  on  the  Ok  button,  the  result  will  appear  on  the  screen  (see  figure 
3.13). 
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DATABASE  MANAGEMENT  MENU 


EgU  Help 


DATABASE  MANAGEMENT 


Select  your  choice  by  pointing  S  dicking  the  mouoe  on  the  items 


Figure  3.14  The  Management  Database  Module 


5.  Database  Management  Module 

As  we  stated  before  that  the  main  menu  consists  of  the  Query  Database  and 
the  Management  Database.  The  Query  Database  has  already  been  discussed,  and  now  let 
we  discuss  the  Management  Database.  There  are  five  button  options:  Course,  Emphasis, 
Elective,  Quarter  and  Student  options  (see  figure  3.14).  By  pointing  and  clicking  the 
mouse  to  one  of  the  buttons  such  as  Course,  the  system  will  directly  manipulate  the 
Course  Object  as  a  result  a  sub  menu  for  the  Course  Object  will  be  displayed  on  the 
screen.  Each  sub  menu  of  Management  Database  consists  of  three  button  options.  These 
options  are  for  adding  new  data,  deleting  data  and  updating  the  data  associated  with  the 
file  that  stated  in  the  button  selection.  By  having  the  similar  options  in  every  sub  menu 
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Figure  3.15  The  Course  Menu 

and  in  the  same  order,  this  helps  the  user  and  reduces  errors  and  training  time. 

In  this  section,  for  simplicity,  we  only  discuss  one  example  of  Management 
Database,  which  is  the  Course  Object.  When  we  select  the  Course  button  of  the 
Management  Database  menu,  then  it  will  display  the  sub  menu  of  Management  Course 
Data  Object  on  the  screen  (see  figure  3.15).  This  menu  provides  three  button  options  : 
Update  the  Course,  Delete  the  Course  and  Add  the  Course.  These  options  are  for  updating 
mechanisms.  The  Exit  option  is  for  ending  this  session  and  the  Help  options  is  for  getting 
information  about  the  Course  Object  module.  Now  let  us  select  Update  the  Course  option 
to  change  the  current  record  in  the  Database. 

The  window  frame  shown  in  figure  3.16,  is  the  result  given  after  clicking  the 
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Figure  3.17  Updating  The  Course  (frame  2) 


Update  the  Course  option.  Now,  the  user  can  select  the  course  to  be  updated  Ifrom  the 


list-box  with  the  list  of  courses.  Using  a  single  click  on  the  course  followed  by  clicking 
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Figure  3.18  Updating  The  Course  (frame  3) 


on  the  Ok  button  or  using  the  double  clicking  the  user  can  update  directly.  The  system 
immediately  gives  a  response  by  displaying  detailed  information  of  the  record  selected. 
Figure  3.17  depicts  overlap  windows,  where  the  user  can  edit  and  modify  the  data  from 
current  windows.  This  menu  provides  Update  button  and  Cancel  button  which  allows  to 
the  user  to  process  or  cancel  the  operation.  After  the  user  tinish  updating  the  selected 
course,  a  message  window  will  be  displayed.  This  message  window  gives  the  user  options 
to  continue  updating  Course  files  or  not  (see  figure  3.18).  Deletion  and  addition  can  be 
done  in  the  same  manner. 
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6.  Coding  the  Programs 


As  we  stated  earlier,  that  a  program  created  by  the  user  in  the  KnowledgePro 
environment  is  called  Knowledge  base.  Through  the  Knowledge  base,  the  system 
communicate  to  the  user  and,  can  also  provide  a  way  for  the  user  to  respond.  In  other 
words,  all  functions  of  the  EAIS  are  controll^  by  the  Knowledge  bases  interactively. 

There  are  a  total  of  eleven  Knowtedge  bases  in  the  system.  Each  controls  the 
execution  of  one  or  more  modules.  Table  3.1  depicts  the  Knowledge  bases  and 
functionalities  used  in  the  system. 


Table  3.1  THE  EAIS  KNOWLEDGE  BASES 


Knowledge  base 

Purpose 

MAIN.KB 

-  Display  the  Main  Menu. 

-  Display  the  Query  Database  menu. 

•  Display  the  Management  Database  menu. 

EMPHASIS.KB 

-  Display  the  menus  for  managing  the  Emphasis  object. 

-  Control  the  Add,  Update,  Delete,  Help,  Exit  options. 

-  Handle  for  managing  EMPHASIS  record. 
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ELECnVE.KB 


-  Display  the  menus  for  managing  the  Elective  object 

-  Control  the  Add,  Update,  Delete,  Help,  Exit  options. 

-  Control  and  manage  the  ELECTIVE  record. 


COURSE.KB 

-  Display  the  menus  for  managing  the  Course  object. 

-  Control  the  Add,  Update,  Delete,  Exit  options. 

-  Control  and  manage  the  COURSE  record. 

QUARTER.KB 

-  Display  the  menus  for  managing  the  Quarter  object. 

-  Control  the  Add,  Update,  Help,  Exit  options. 

-  Control  and  manage  the  QUARTER  record. 

STUDENT.KB 

•  Display  the  menus  for  managing  the  Smdent  object 

•  Control  the  Add,  Update,  Delete,  Help,  Exit  options. 

-  Control  and  manage  the  STUDENT  record. 

QUEMPHAS.KB 

-  Display  the  menu  for  querying  the  Emphasis  Area. 

-  Control  the  Emphasis,  Help,  Print,  Exit  options. 

-  Print  the  emphasis  area  report 

QUELECKB 

-  Display  the  menu  for  querying  the  Elective  course  for 

selected  the  Emphasis  Area. 

-  Control  the  Emphasis,  Help,  Print,  Exit  options. 

-  Print  the  track  elective  courses  report. 

OPTADEC.KB 

-  Display  the  menu  for  querying  selected  courses  from 

fourth  through  eight  quarter. 

-  System  will  view  fourth  through  eighth  quarter  courses 

by  given  student’s  name  selected  from  list  box  menu. 

OFFERED.KB 

-  Display  the  menu  for  querying  the  Elective  course  for 

given  Quarter. 

•  Control  the  Quarter,  Help,  Print,  Exit  options. 

-  Print  the  quarter  elective  courses  report. 

GENSELEC.KB 

•  Display  the  menu  for  selecting  courses. 

-  Given  the  quarter  year,  student’s  name,  the  system  will 

view  the  list  of  courses  should  be  selected. 

-  Generate  and  print  the  course  selections. 

Through  our  experience  of  implementing  a  EAIS  application  using  a  software 
development  tool  KnowledgePro(Windows),  we  found  some  advantages  as  well  as 
disadvantages.  In  the  next  chapter  we  will  try  to  evaluate  the  development  process  of  the 
EAIS  using  KnowledgePro. 
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IV.  EVALUATION 


In  the  previous  three  chapters,  we  have  described  some  motivation  and  background 
of  the  thesis,  and  implementation  of  the  EAIS.  Now  we  will  evaluate  the  application 
development  process  of  the  EAIS  using  toolkit  KnowledgePro(Windows).  We  organize 
this  chapter  into  three  sections.  Section  A  will  discuss  the  category  of  KnowledgePro 
(Windows).  Based  on  our  experience,  section  B  will  discuss  the  advantages  and 
disadvantages  of  using  KnowledgePro.  The  last  section  will  look  at  the  comparison 
between  KnowledgePro  and  Toolbook. 

A.  THE  VISUAL  INTERFACE  CATEGORY  OF  KNOWLEDGEPRO 

As  we  mentioned  earlier,  we  know  that  visual  programming  growing  in  two  major 
directions.  In  one  direction,  pointing  devices  and  graphical  techniques  are  used  to  obtain 
the  visual  environments  for  program  development  and  execution;  for  software  design;  and 
for  information  retrieval.  They  all  provide  a  visual  environment  which  captures  a  new 
way  for  humans  to  interact  with  the  computer.  In  the  another  direction,  languages  are 
designed  to  handle  visual  information;  to  support  visual  interaction;  and  to  program  with 
visual  expression.  Programming  languages  that  fall  into  this  category  support  a  way  in 
terms  of  an  approach  to  the  language  aspects  of  the  programming  process.  Table  4.1 
shows  the  trends  of  the  current  visual  programming. 

We  have  briefly  examined  these  different  aspects  of  visual  programming.  The 
purpose  of  the  classification  is  to  sharpen  our  understanding  of  visual  programming  by 
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focusing  on  the  functional  distinctions;  and  to  have  the  distinctions  among  the  different 
categories  of  visual  programming.  To  classify  whether  KnowledgePro  is  visual 
programming  or  not,  is  the  consideration  of  graphical  representations  must  be  used  in  the 
programming  process.  Now  let  we  discuss  the  aspects  of  KnowledgePro  that  can  be 
applied  by  visual  programming. 


Table  4.1  VISUAL  PROGRAMMING 


VISUAL  ENVIRONMENT 

VISUAL  LANGUAGES 

visual! 
zation 
of  data 

visual! 
zation 
of  pro¬ 
gram/ 
exe¬ 
cution 

visual! 
zation 
of  soft, 
design 

for 

handling 

visual 

informa¬ 

tion 

for  sup 
porting 
visual 
interac¬ 
tion 

Visual  Programming 
Languages 

Diagra-  Iconic 
made  systems 
systems 


Form 

system 


Some  capabilities  supported  by  KnowledgePro  include  linking  screen  objects  to 
topics,  displaying  a  picture,  handling  events,  getting  information  from  the  user,  and 
temporarily  halting  topic  execution. 

1.  Linking  screen  objects  to  topics 

In  the  Main  Menu  (figure  3.4),  the  two  options  on  the  screen  are  located  on 
buttons.  There  are  the  (^ery  Database  and  the  Management  Database  buttons.  A  button 
is  used  to  triggered  an  action.  When  a  button  is  selected  something  happens  immediately. 
These  are  both  examples  of  screen  objects.  The  highlight  is  moved  among  screen  objects 
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by  pressing  TAB  or  SHIFT  TAB  or  by  clicking  on  an  object  with  the  mouse. 

The  command  that  creates  the  button  shows  how  an  event  topic  is  assigned 
to  screen  object. 

button  (QUERY  DATABASE,  QueryDatabase,  18,  10,  30). 

The  first  parameter  defines  the  name  on  the  button,  the  second  defines  the  event  topic  and 
the  final  parameters  set  the  column,  row  and  length  where  the  button  is  displayed.  So 
when  an  event  topic  is  called  it  is  passed  these  piece  of  information  :  information  about 
the  event;  the  name  of  the  event;  and  the  handle  of  the  current  screen  object.  Something 
called  a  selectjevent  occurs  as  the  default  event  for  s  button.  When  the  selectjevent 
occurs,  the  button’s  event  topic,  QueryDatabase,  is  immediately  called. 

2.  Displaying  a  picture 

There  two  different  types  of  graphics  supported  by  KnowledgePro.  Each  of 
these  is  used  for  a  different  function.  The  first  type  is  Icons.  Icons  are  images  associated 
with  windows.  The  second  one  is  bitmaps.  Bitmaps  are  used  for  displaying  pictures. 

Bitmaps  can  be  created  using  Zisoft’s  PC  Paintbrush  for  Windows.  To  load  a 
bitmap,  we  use  load_bitniap  command.  The  following  is  an  example  command  to  load 
a  bitmap  that  returns  a  bitmap  photo  : 

photo  is  load_bitnuip  (’PICTURE.BMP’). 

We  then  may  display,  print  and  delete  using  the  commands  : 
bitmap  (?photo). 
print  (*#g%?photo). 
delete_bitnuip  (?photo). 
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In  the  same  way,  the  icons  can  be  created  using  software  called  ICOEDIT. 
For  instance,  to  load  the  icon  LOGO.ICO,  display  it  at  column  4  row  5  of  the  current 
window  and  delete  an  icon,  we  use  the  following  commands: 
logo  is  loadjcon  (’LOGO.ICO’). 
icon  (?logo,  4,  5). 
deletejcon  (?logo). 

3.  Handling  events 

We  have  mendoned  in  chapter  II,  that  KnowledgePro  is  an  event  driven 
language.  When  we  view  a  program  as  a  communication  between  the  system  and  the  user, 
this  means  that  via  the  system  the  designer  talks  to  the  user  and  then  waits  for  the  user 
to  talk  back.  When  the  user  talks  back,  an  event  occurs.  When  we  create  a  screen  object, 
we  specify  whether  we  want  it  to  handle  events  and  which  events  we  want  it  to  recognize. 
This  is  done  by  specifying  an  event  handling  topic.  Event  handling  topic  is  called 
whenever  one  of  the  specified  events  occurs  while  the  focus  is  on  the  particular  object. 

To  make  it  clearer,  let’s  look  at  the  following  example, 
wl  is  window(WindowTopiCy203f50,10,title,„,[inove_event^lose_event]). 
topic  WindowTopic  (info,event,handIe). 

do  (?event). 

topic  inove_evenL 

column  is  first  (?info). 
row  is  last  (?info). 

end. 
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topic  cIose_event. 


WindowTopic  is  true. 

end. 

end. 

When  window  wl  was  created  we  specified  that  movejevent  and  close  jevent 
should  be  recognized.  When  one  of  these  events  occurs,  then  WindowTopic,  the  event 
topic  defined  in  the  window  command  is  called.  When  the  user  moves  wl  a  movejevent 
occurs. 

4.  Getting  information  from  the  user 

During  visual  user  interface  development,  it  is  important  that  the  selection  of 
screen  objects  are  the  one  best  suited  for  the  information  being  gathered.  KnowledgePro 
provides  edit  objects  that  let  the  designer  gather  information  such  as  name,  class,  rank 
quickly  and  easily. 

The  commands  or  functions  to  create  edit  objects  include: 

•  edit  line  is  used  for  entering  a  single  line  of  data 

•  edit  box  is  used  for  entering  multiple  lines  in  a  dialog  window 

•  edit  window  opens  independent  editing  window 

•  edit  Jile  opens  independent  window  with  a  File,  Edit  and  Search  menu 

The  user  can  select  one  or  more  items  from  a  list  of  options  using 

•  list  boxes,  check  boxes  or  radio  buttons  that  let  the  user  selects  one  or  more  items 

•  hyper-regions  used  for  selecting  values  using  pictures 

KnowledgePro  provides  many  types  of  screen  objects.  It  makes  the  designer 
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selects  among  them  to  make  the  best  use  of  system  environment  Additionally,  each 
screen  object  has  the  same  behavior  make  it  very  obvious  to  the  user  what  has  been 
selected  and  they  provide  visually  attractive  way  to  make  options  apparent. 

5.  Temporarily  halting  topic  execution 

There  are  times  when  we  need  to  temporarily  halt  the  execution  of  the 
commands.  This  can  be  done  with  wait  command.  Generally,  the  use  of  wait  is  to  halt  the 
system  to  wait  for  the  user  input  as  the  following  example: 
window  ( ). 

text  (’Welcome  to  the  #mNavai  Postgraduate  School#m*). 
wait  (  continue*  5  ). 

A  window  is  opened  and  a  welcoming  message  is  displayed,  wait  then  stops 
executing  the  system  until  five  seconds  have  expired  or  until  the  user  select  the  continue 
button  in  the  wait  window,  whichever  come  first.  When  the  user  select  the  hypenext, 
topic  Naval  Postgraduate  School  is  called. 

KnowledgePro  may  be  classified  as  a  language  that  can  be  used  to  create,  define, 
and  manipulate  graphical  representation.  The  objectives  of  developing  KnowledgePro  are 
motivated  by  the  need  to  have  easy-to-use  languages  for  the  manipulation  and  querying 
of  graphical  data.  KnowledgePro  provides  a  way  to  deal  with  all  possible  sequences  by 
the  user  with  the  input  devices.  This  means  that  KnowledgePro  is  a  user  interface 
development  tool  that  exploits  the  concurrency  among  multiple  interaction  devices  such 
as  mice,  buttons,  list  boxes,  radio  buttons,  and  keyboards.  KnowledgePro  provides  the 
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capability  to  create  every  kind  of  control  available  in  the  windows  environment,  it  makes 
for  graceful  interaction  between  the  user  and  the  computer. 

Based  on  the  capabilities  of  KnowledgePro,  we  believe  that  KnowledgePro  focus 
is  on  language  aspects  for  a  good  visual  user  interface.  As  mentioned  before,  visual 
languages  can  be  classified  into  language  for  handling  visual  information,  language  for 
supporting  visual  interaction,  or  language  for  programming  with  visual  expression. 
KnowledgePro  falls  into  the  second  category.  Languages  for  Supporting  Visual 
Interaction. 

B.  THE  ADVANTAGES  AND  DISADVANTAGES  OF  USING 
KNOWLEDGEPRO 

The  goal  of  this  thesis  is  to  study  the  effectiveness  of  a  visual  interface.  To 
accomplish  the  goal  we  have  implemented  the  EAIS  using  toolkit  KnowledgePro. 
Through  our  experience  we  have  found  some  advantages  and  disadvantages  of  using 
KnowledgePro. 

1.  Advantages 

As  we  mentioned  before  that  the  decreasing  cost  of  computing,  coupled  with 
the  widespread  use  of  personal  computers,  has  acted  as  a  catalyst  for  more  application. 
By  necessity,  end  user-computing  is  becoming  a  major  trend. 

KnowledgePro  offers  characteristics  to  enhance  the  end-user  computing,  reach 
a  broader  personnel  base  of  programmer;  and  increase  their  productivity.  Some  of  these 
characteristics  are:  ease  of  learning;  ease  of  use;  and  modularity. 
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a.  Ease  of  Learning 


KnowledgePro  comes  with  a  single,  large  manual  that  includes  tutorial, 
reference,  and  appendix  sections.  It  uses  a  multiple  document  interface  and  also  provides 
a  large  application  hypertex-based  on  line  help  that  let  users  work  on  more  than  one 
application  at  a  time.  If  command’s  errors  are  found,  we  can  directly  call  on  line  help 
without  quitting  from  current  application.  KnowledgePro  also  includes  the  complete  fries 
for  KnowledgePro  tools,  such  as  FONT.CKB  and  DESIGN.CKB  which  serve  as  excellent 
references  for  experience  programmers.  From  our  experience  of  using  KnowledgePro  in 
the  EAIS  implementation,  we  easily  leam  and  implement  it.  Reducing  learning  time  can 
increase  productivity  and  number  of  people  who  can  program. 

h.  Ease  of  Use 

Traditionally,  computer  programming  languages  that  were  developed  in 
the  1960s,  1970s  and  early  1980s,  such  as  FORTRAN,  COBOL,  ALGOL,  PASCAL, 
ADA,  or  C  were  designed  for  use  in  the  non-interactive  computer  environment. 
Programmers  would  compose  hundreds  or  thousands  of  lines  of  code,  carefully  check 
them  over,  and  then  compile  or  interpret  the  code  by  the  computer  to  produce  a  desired 
result.  Creating  a  visual  interface  in  these  traditional  approaches  requires  unacceptable 
amount  of  time  to  design,  code,  test  and  maintain  the  software. 

KnowledgePro  is  a  mainstream  object-oriented  Windows  development 
system  that  offers  additional  hypertext  and  expeit  system  tool  feature  to  enhance  the 
visual  user  interface.  KnowledgePro  works  as  integrated  development  under  Windows. 
The  KnowledgePro  main  window  includes  commands  for  maintaining,  compiling  and 
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running  files;  searching  and  replacing  text  in  edit  window;  running  the  application; 
clearing  the  current  application;  debugging  the  application  in  memory;  and  a  switch  for 
setting  a  slew  of  KnowledgePro  environment  options.  The  main  window  also  offers  an 
on-line  context-sensitive  hypertext  help  function. 

The  KnowLedgePro  language  is  surprisingly  compact  for  such  a  powerful 
system.  It  contains  few  syntax  rules,  so  we  can  be  verbose  in  our  coding,  without 
destroying  the  meaning  of  the  topic  or  encountering  an  error.  For  manipulating  data, 
KnowledgePro  provides  string  and  financial  operations  as  well  as  facilities  for  performing 
set  operations  against  lists.  KnowledgePro  includes  the  source  code  for  the  help  system 
application.  Creating  and  manipulation  push  buttons;  radio  buttons;  check,  list  and  edit 
boxes;  and  hypertext  region  is  easy.  It  also  provides  several  tools  and  their  source  code, 
to  make  it  easier  fen-  users  to  design  and  build  an  application.  FONT.CKB  and 
DESIGN.CKB  ate  the  most  important  function  as  interactive  code  generation  tools  to 
emphasize  speed  on  implementation. 

The  debugger  includes  several  tools,  including  a  window  for  displaying 
application  topics.  We  can  use  it  to  browse  a  topic’s  values,  commands  and  properties, 
much  Uke  an  object  browser  in  Smalltalk.  It  also  provides  a  command  to  evaluate  the  text 
of  the  selected  edit  window;  a  corxunand  to  compile  and  execute  the  code  immediately 
and  a  conmumd  to  trace  each  step  as  the  application  is  executed.  The  Calls  window 
displays  a  list  of  topics  that  our  application  has  called  but  not  yet  executed. 

KnowledgePro  offers  solid  and  useable  development  tools  that  run  very 
quickly  and  cleanly.  This  is  one  Windows  development  environment  tool  that  offers  the 
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ease  of  use,  the  ease  of  learning  and  extensibility  for  both  power  users  and  developers. 
c.  Modularity 

The  principles  of  software  engineering  recommend  writing  code  in  small, 
self-contained  units,  called  modules.  Modularization  is  the  process  of  dividing  a  task  into 
subtasks.  Each  module  performs  a  separate,  independent  part  of  task.  Modularity  offers 
advantages  for  program  development,  as  well  as  software  maintenance. 

A  knowledge  base  is  a  collection  of  topics.  Topic  strongly  supports 
modularity.  When  KnowledgePto  is  loaded,  only  one  topic,  named  !main,  exists.  If  we 
compile  a  knowledge  base,  the  commands  in  the  knowledge  base  become  associated  with 
!main\  topics  defined  in  the  knowledge  base  bKome  subtopics  of  !main.  Topics  can  also 
be  subtopics  of  other  topics.  This  is  called  nesting.  There  are  several  advantages  to 
writing  a  program  as  a  series  of  topics. 

•  Understandability.  The  topic  structure  groups  together  related  functions  and  hides 
the  details  of  their  implementation.  This  malms  debugging  easier  and  the  knowledge 
base  rocne  understandable. 

«  Maintainability.  If  a  function  is  implemented  as  a  single  topic,  the  topic  can  be 
replaced  with  a  revised  (me,  if  necessary.  The  new  topic  may  be  needed  due  to  a 
change  in  requirement  or  the  environment 

•  Reusability.  Topics  developed  for  one  purpose  can  often  be  reused  in  other 
programs.  Reuse  of  correct  existing  topics  can  significantly  reduce  the  difficulty 
of  programming  and  testing. 
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2.  Disadvantages 


a.  Speed 

KnowledgePro  offers  the  ease  of  use  by  providing  many  kinds  of  different 
screen  objects  such  as  push  buttons,  radio  buttons,  check  boxes,  edit  boxes,  list  boxes, 
edit  line  and  hypertext  regions.  The  designer  can  build  user  interfaces  easily.  However, 
creating  and  manipulating  the  screen  objects,  make  the  system  runs  slowly.  From  our 
experience,  the  primary  difficulty  of  implementing  the  EAIS  using  KnowledgePro  is 
achieving  quick  navigation  through  the  system.  This  lack  of  speed  is  due  to  the  large 
overhead  involved  in  processing  screen  objects  by  the  Central  Processing  Unit 

The  solution  of  this  problem  is  to  invest  in  hardware  that  speeds  up 
graphics  processing  or  provide  the  system  with  other  toolkits  such  as  KnowledgePro  Math 
Toolkit  or  KnowledgePro  Graphics  Toolkits. 

b.  Error  Handling  and  Compiling 

When  we  compile  a  knowledge  base  with  many  errors,  KnowledgePro 

will  display  an  error  at  a  time  on  window  screen.  The  system  wait  for  the  response  of  the 

user  to  continue  the  operation  or  cancel.  By  displaying  one  error  at  a  time  on  the  screen, 

the  system  needs  rrxne  time  and  is  not  attractive  to  the  novice  programmers  and  end- 

users.  Lets  us  consider  the  following  knowledge  base  ; 

topic  first 

list  is  [A,  B,  C]. 
iteml  is  first  (  ?list ). 

«id. 
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When  we  compile  it,  we  do  not  have  any  errors.  But  when  we  run  this  program,  the  result 
is  an  infinite  loop  because  it  has  the  same  name  as  a  function  which  is  used  in  a 
command  for  the  topic.  Instead  of  calling  the  function  first,  the  knowledge  base  topic  first 
is  recursively  called  forever. 

e.  Dedgn  Tools  lacking 

Despite  the  powerful  language  and  functions,  we  found  KnowledgePro’s 
application  design  tools  lacking.  The  tools  include  a  simple  font  generator  and  an 
interface  design  tool.  The  interface  design  lets  us  the  user  create,  position,  and  resize 
Windows  objects  in  a  window,  generate  the  KnowledgePro  code  to  create  and  manipulate 
them,  and  copy  the  code  via  the  clipboard,  to  the  user  application.  The  font  generator  lets 
the  user  configure  custom  fcmts  from  the  available  wirulows  fonts. 

The  tools  are  rather  limited  and  operate  in  nonstandard  way.  For  example, 
noost  Graphical  User  Interface  design  tools  lets  the  user  use  the  mouse  to  put  the  object 
into  position  in  the  interface.  With  die  KnowledgePro’s  interface  design  tool,  when  we 
click  where  we  want  the  object  to  be,  then  the  object  jumps  to  where  we  clicked.  Further, 
we  have  to  use  keyboard  to  resize  an  object  because  the  mouse  does  not  support  resizing. 


C.  COMPARATIVE  STUDY  BETWEEN  TOOLBOOK  AND  KNOWLEDGEPRO 
As  we  stated  before,  that  Toolbook  and  KnowledgePro  are  software  development 
tools  for  Windows  3.0.  The  implementation  of  a  sample  application  using  KnowledgePro 
has  already  been  discussed  along  with  it’s  advantages  and  disadvantages.  In  this  section. 
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we  try  to  compare  both  tools  to  have  a  better  understanding  for  software  development 
tools. 

1.  ToolBook 

Toolbook  greets  the  user  with  its  Book-shelf  front  end.  A  "book  of  books" 
showing  icons  for  the  available  Toolbook  applications.  The  user  is  off  to  a  quick  start 
with  the  following  applications:  the  DayBook  information  manager;  the  ToolBook/DBASE 
Exchange;  a  graphics  front  end  to  DBASE  files;  and  the  Quick  Tour.  Both  the  ToolBook 
Quick  Tour  and  the  on-line  help  give  the  user  easy  access  to  any  part  of  the  system.  This 
means  that  ToolBook  offers  access  to  the  graphic  power  and  intertasking  linkage  of  the 
Windows  environment.  Support  for  basic  Windows  features  of  ToolBook  and  the  ease  of 
learning  to  use  development  tools  are  better  in  Toolbook  than  in  KnowledgePro. 
ToolBook  is  an  active  environment,  sending  a  constant  stream  of  messages  to  its  objects. 
This  allows  the  designer  to  easily  alert  the  user  K>  problem  areas  on  screen.  A  feature  of 
growing  inqxntance  in  fully  graphic  applications  designer  alerts.  ToolBook's  limit  on 
"nested  handlers"  forces  a  recursive  benchmaiit  to  be  written  in  an  interactive  style.  In 
contrast,  KnowledgePro  accepted  recursive  benchmarks  without  rewriting  them. 

2.  KnowledgePro 

KnowledgePro  works  with  "knowledge  bases"  in  contrast  with  ToolBook’s 
pages  of  books.  KnowledgePro  supports  hypertext  feature  that  can  be  clicked  upon  by  a 
mouse  to  produce  strnie  programmed  action.  By  making  on  screen  text  an  active 
component  of  the  interface,  designers  can  build  a  single  software  object  that  serves  as 


55 


both  code  and  data.  The  result  is  extraordinary  development  productivity.  Like  ToolBook, 
KnowledgePro  is  an  active  environment  in  which  objects  receive  a  stream  of  messages 
as  the  user  takes  various  actions.  KnowledgePro  is  also  similar  to  ToolBook  in  the  way 
that  individual  objects  are  given  handlers  for  those  events  that  the  programmer  considers 
relevant  to  each  object 

KnowledgePro  is  more  responsive  than  ToolBook,  with  interactive  touches  such  as 
editor  windows  that  scroll  interactively  as  the  user  drags  the  elevator  box  at  the  right  side 
of  the  window.  KnowledgePro  offers  full  topic  subclassing  with  multiple  inheritance,  a 
feature  that  distinguishes  it  from  ToolBook.  It’s  support  for  Windows  objects  is  much 
richer  than  ToolBook’s.  KnowledgePro  enables  developers  to  produce  Windows  programs 
that  offer  broader  functionality  than  those  created  in  ToolBook. 
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V.  CONCLUSIONS 


Traditionally,  the  design  and  implementation  of  conventional  database  systems 
involve  text  oriented  data  access  with  their  inherent  lack  of  modularity,  extensibility  and 
modifiability.  An  alternative  to  this  traditional  approach  is  using  visual  interfaces  for  the 
design  and  implementation  of  databases.  This  alternative  approach  involves  using  software 
development  tools  (toolkits)  to  ensure  modularity,  extensibility  and  modifiability.  To  study 
the  effectiveness  of  using  visual  interfaces,  we  have  designed  and  implemented  a  sample 
application  named  The  Emphasis  Area  Information  System  (EAIS)  using  KnowledgePro, 
a  tool  for  rapid  application  under  Windows. 

An  interactive  user  interface  was  implemented  for  the  EAIS  using  KnowledgePro. 
An  evaluation  of  our  irt^lenoentation  indicates  that  designing  an  interactive  user  interface 
using  visual  interfaces  is  easier  than  designing  a  user  interface  using  the  traditional 
approach.  KnowledgePro  falls  into  the  language  for  supporting  visual  interaction. 
KnowledgePro  supports  interactive  design  tools  and  easy-to-leam  commands  which 
extremely  facilitates  using  and  learning  the  system.  Underlying  this  easy-to-leam 
environment  is  a  powerful  symbolic  language  called  the  topic.  Topics  are  very  highly 
support  modularity,  extensibility  and  modifiability  which  increase  on  speedy  the  system 
development 

The  primary  difficulty  of  the  implementation  of  the  EAIS  using  KnowledgePro  is 
achieving  quick  navigation  through  the  system.  This  lack  of  speed  is  due  to  the  large 
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overhead  involved  in  processing  screen  objects  by  the  Central  Processing  Unit.  The 
solution  of  this  problem  is  to  invest  in  hardware  that  expedites  graphics  processing  or 
provide  the  system  with  other  toolkits  such  as  KnowledgePro  Math  Toolkit,  or 
KnowledgePro  Graphics  Toolkits. 

There  are  still  some  issues  that  need  to  be  considered  for  future  research.  Some  of 
these  issues  are  the  utilizing  new  features  to  Windows  including: 

•  The  expert  system  tool  features  to  enhance  the  firiendly  user  mteiface.  The  expert 
system  capabilities  enable  the  application  designer  to  built  in  expert  system  rules 
that  allow  to  be  tailored  to  a  user’s  level  of  expertise. 

•  Dynamic  Data  Exchange  (DDE)  as  a  method  for  applications  that  run  under  the 
Microsoft  Windows  to  communicate  directly  with  one  another. 

•  Dynamic  Link  Library  (DLL)  is  a  separate  file  containing  functions  which  can  be 
called  by  the  programs  to  perfonn  specific  jobs. 


Using  these  features  would  increase  efficiency  in  designing  and  implementing  visual 
interface  to  database  systems  while  decnsasing  die  time. 
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APPENDIX  A.  SOURCE  CODE  LISTING 


(*  Program  :  mainJcb 
Programmer  :  suprapto 

*) 

if  exists(temp) 

then  remove_topic(temp)  and  collectO  and  workonO 
else  [veparationO- 

topic  {separation. 

logoO- 

seni{)0- 

Main_menu  0- 
end. 

topic  logo. 

wh  is  window(.15,4,66.19„[Dialogwindow, visible]), 
text  (’#n#fblue 


COMPUTER  SCIENCE 

NAVAL  POSTGRADUATE  SCHOOL 

MCWTEREY  CALIFORNIA  93943#d’). 
b2  is  buttonCOK.  ^.16.10). 
set_focus(7b2). 

wait(  ,1)- 
close.windowQ. 
end. 

(*  <<<<<<<<<<<<<<<<<<<<<<<  MENU  ITEMS  »»»»»»»»»»»»»»  *) 
tq>ic  maidjnemi. 

disable_menujtem  (?ml,(pievious_inenu]). 
list  is  (]. 

list  gets  ’ftHelp'. 
set.UUe  (.’MAIN  MENU’), 
text  (’#e  i^lue 

- i - #fred 


NAVAL  POSTGRADUATE  SCHOOL 
EMPHASIS  AREA  DECISION  SUPPORT  SYSTEM#fblue 


set_dispIay_pos(9.I6). 


’). 
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■— #d 


text('#fblue - 

Point  and  click  your  mouse  to  select  job  on  the  items  above; 


button(’QUERY  DATABASE’, ’query  database’, 18, 10,30). 
buuon(’DATABASE  MANAGEMEOT’,’database  management’,18,13,30). 
end. 


topic  worktm. 

data  is  read(’tempo.dat’).  setup(). 
if  rirst(?data)  is  1 

then  do(’query  database’) 
else  do(’database  management’), 
end. 

topic  select  (item), 
do  (?item). 


topic  ’(3uii_to_system’. 
text(#e). 
logoO- 
clear<). 

end.  (‘ftfluit*) 
topic  &(^t. 
text(#e). 
logoQ. 
clearO- 

end.  (‘ftCJuit*) 

topic  &Help. 

items  is  last(?list). 
display_Info(7items). 

end.  (‘Ahelp*) 

end.  (•SELECT*) 

(•  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  »»»»»»»»»»»»»»»»»>  *) 

topic  ’QUERY  DATABASE’, 
list  gets  ’QUERY  DATABASE’. 
set_tiUe  (?wl,’QUERY  DATABASE  MENU’), 
oiable.menujtem  (?ml,[Previous_menu)). 
text  (’#e  #fired 

- .... — ... — . — - .^tfblue 

QUERY  DATABASE  #FRS) 

- #D’). 

set_display_pos(9, 19). 

text(’#FRED  - -#D 

Select  your  choice  by  pointing  &  clicking  the  mouse  on  the  items 

’). 


60 


button(’EMPHASIS  AREAS’,emphas,15^,38)- 
butionCELECnVE  OFFERED’.offered,  15,8,38). 
buttonCCOURSE  ELECnVE’.elective.l5.1 1,38). 
buttonCGENERATE  COURSE  SELECTION’.’generateM5.14.38). 
bultonCOPTION  AREA  AND  COURSE  SELECTION’,optadec,15,17,38). 
end.  (‘QUERY  DATABASE  *) 

topic  emphas.  inark(’emphasis  areas’),  end. 
topic  offered.  mark(’elective  offered’),  end. 
topic  elective,  markf’course  elective’),  end. 
topic  generate.  inark( ’generate  course  selection’),  end. 
topic  optadec.  tnark( ’option  area’),  end. 

topic  ’DATABASE  MANAGEMENT’, 
list  gets  ’DATABASE  MANAGEMENT’. 
seuiUe  (?wl,’DATABASE  MANAGEMENT  MENU’), 
enable.menujtem  (?ml,(Prcvious_menu]). 
text  (’#e  #fted 

- #fblue 

DATABASE  MANAGEMENT  #fred 

set_display_pos(  1 2, 1 9) . 

text(’#fred  - #D 

Select  your  choice  by  pointing  &  clicking  the  mouse  on  the  items  ’). 
butUMif’E  M  P  H  A  S  I  S’,’dm_emphasis’,24,5,20). 
button(’E  L  E  C  T  I  V  E’,’dm_elective’,24,8,20). 
buuon(’C  OURS  E’,’dm_course’,24, 11,20). 
button(’Q  U  A  R  T  E  R’,’dm_quarter’,24,14,20). 
buuonCS  T  U  D  E  N  T’.’dm_student’, 24,17,20). 
end.  (‘QUERY  DATABASE  ‘) 

topic  dm.emphasis.  mark(’e  m  p  h  a  s  i  s’),  end. 
topic  dm.elective.  mark(’e  1  e  c  t  i  v  e’).  end. 
topic  dm.course.  mark(’c  ours  e’).  end. 
topic  dm.quarter.  marit(’q  u  a  r  t  e  r’).  end. 
topic  dmjstudent.  mark(’s  t  u  d  e  n  t’).  end. 

(‘  ==g==8==»========  MARK  TOPIC  «==r==========  ‘) 

topic  mark  (item). 
text(’  tes2’).  text(?item). 
if  one_of(?list_nienu,  7item) 
then  applicationO 
else  DO  (7ITEM). 

topic  application. 

hide_window(?wl). 

load  (  element  (  ?list_prog,  where  (  ?list_menu,  ?item)).  temp). 

tempo. 

waitQ. 

end. 

END.  (‘end  mark*) 
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topic  Previous.menu.  niain_menuO-  end. 

topic  display.Info  (items), 
wh  is  window(,15,S,66,19„[Dialogwindow, visible]). 
use_font(system_font). 
inake_modal(?wh). 

text  (#ejead  (’infoJiyp’,  ctxicat  (7/’,?items)  .'ID ). 
set_filej)os  (’infoJiyp’,0,begii)nmg). 
b2  is  button(C)k,c(mtinue,30,16). 
set_focus(?b2). 
wait(). 

close.windowQ. 

end. 


(* 


•) 


SETUP' 


topic  setup. 
displayMo  (). 
if  version  is  3 

then  !main:wl  is  window  (select:&Quit.l3,l,83.22„[Popup.Visible,ThinErame]) 

else  !main:wl  is  wind 

(select:&Quit.l3,l,70^„(PopUp„ControlKfenu,thickFrame3howChildren,SibIings]„„close_event). 
ml  is  menu  (([E&xitJPr^ious_menu.*Quit_to_system’],&Help]^lea). 
disable_menujtem  (?ml,[I¥evious.menuD. 

list_menu  is  [’emphasis  areas’.’elective  offered’.’course  elective’.’generaie  course  selection’, ’option  area’, 

’e  m  p  h  a  s  i  s’.’e  1  e  c  t  i  v  e’.’c  ours  e’.’q  u  a  r  t  e  r’.’s  t  u  d  e  n  t’]. 
list_prog  is  [’quemphas.ckb’,’offered.ckb’,’elecqry.ckb’,’genselec.ckb’,’<q>tadec.ckb’,’emphasis.ckb’, 
’elecdve.ckb’.’coursexkb’,’quarter.ckb’,’student.ckb’]. 
show.window  (?wl). 
list  is  [  ]. 


topic  displayinfo. 
system  is  systemjnfo  0- 
if  elemem  (?system,4)  is  12 
then  displayType  is  EOA  and 

smallFdmis  [10,S.400,f,f/.0.134,Helv]  and 
bigFdm  is  (16.9,400,f//.0.1,18.Tms  Rmn’) 
else  displayType  is  VGA  and 

smallFont  is  [16,7,4(X)//4',0,l,18,Helv]  and 
bigFont  is  [20.8,700i/X0.134JIelv]. 

if  last  (7system)  <  3 
then  hypeiColor  is  black 
else  hyperG>lor  is  blue  and 
hyper.display  (blue). 

hyperFont  is  create_font  ([12,8,400J,t,f,0.1.2,System]). 


o  w 
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version  is  string_c<9y  (elemem  (?system.9),l.l). 
end. 

end.  (•senip*) 

(•  ENDMAINJCB  *) 

(  * - *) 

(*  Title  :  emphasisJcb 
Autha* :  suprapto 


wmenu  is  window(select:&quit^,5,82^1„(Popup„CbntrolMenu,ThickFranie,ShowQiildren,Siblings]). 

ml  is  menu([[E&xit.  *Previoiis_menu’.  *Quit_to_system’l.&Helpl^lect). 
set_title(7wmenu,’em{diasis  OBJECT’),  written  is  0. 
set.tiUe(?wnienu.’EMPHASIS  AREA  OBJECT’),  test  is  0. 
read.fileO. 
topic  read_file. 

eof  is  number_to_char(26). 

No  is  0.  emphasisField  is  [].  emphasisList  is  []. 

message  is  read_liiie(’track.txt’.4). 

repeat 

emphasisField  gets  ([?message])  and 

emphasisList  gets(element(?niessage.2))  and  No  is  ?No  'f  1  and 
message  is  tead_line(’track.txt’,4) 
until  Tmessage  is  ?eof.  close_all0'  show_window(? wmenu). 

end. 

selectionO- 
topic  selection. 

text(#e).  enable_nienu_item(?ml,[E&xit]). 
text  (’#n#fred 


MANAGEMENT  EMPHASIS  AREA#FBLUE 
- #d’). 

stt_display_pos(16,lS). 

text(’#fblue  - ’)• 

buttoaC’UFDATE  THE  EMPHASIS  AREA  ’,&updaie^,6,32). 
buttonC’DELETE  THE  EMFHASIS  AREA  ’.&delete,24,9,32). 
buttonC’ADD  THE  EMPHASIS  AREA  ’.&ad(L24. 12,32). 
waitQ. 

end. 

(• 

u^c  E&xit 
test  is  0. 
selectionO- 
end. 

•) 
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topic  select(item). 


do  (?item). 
end. 

topic  &update. 

set_tiUe(?wnienu.’UM)ATE  THE  EMPHASIS  AREA’). 
disable_menu_item(?ml,[E&xit]).  option  is  ’#FRED  updating’. 
displayboxQ. 

tqnc  di^Iaybox. 

text(#e).  set_dispIay_pos(S.13).  text(’#fblue  emphasis  area  to  be  updated  :’). 
set_dispUiy_pos(S^).  edl  is  []. 

text(’#fblue  emphasis  areas  in  the  Database  #fred  (Select  the  emi^is  to  be  updated)’). 
Lb  is  list_box((?emi*asisListl,input_data^,4,40,„t,[list_select_event,double_click_event]). 
edl  is  edit_line(^5.13.30). 
button  ((XC,C)kJS^.10).  button(Cancel,can^3.9,10). 
end. 
end. 

topic  input.data(iteni,iiifo_nanie). 
edl  is  ?item.  edfield  is  ?edl. 
edl  U  edicline(?edl..3S.1330). 

if  ?infojnaine  is  ’double.click.event’  then  edl  is  get_text(?edl)  and 
editone  is  ?edl  and  check.dataO- 
end. 

topic  Ok. 

if  not(get_text(?edl)  is  (])  then  edl  is  get_text(?edl)  and 
editone  is  ?^1  and  check_dataO 
else  input_data(get_list_box(?Lb)). 


end. 

tqric  check_dataO. 

if  ?option  is  ’#fred  l^pdating’  then  edit_eii^)hasisO 
elM  ( if  ?opiion  is  ’#fred  deleting  ’  then  delete.emi^isQ 
else  add_emphasisO). 

end. 

tqric  edit_etnphasts. 

if  one_of(?empiiasisList.  ?edl) 
then  editO 
else 

message  is  concat(7edl,  ’#fblue  was  not  in  the  emphasis  file  !’)  and 
display.infoO. 
end. 

topic  delete.emphasis. 

if  one_of(?emphasisList,  ?edl) 
then  deleteO 
else 

message  is  concat(?edl,’#fted  was  not  in  the  emphasis  file  !!')  and 
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display.infoO- 

end. 

tq)ic  diq;)lay_info. 

disable_window(?wmenu). 

disable_window(?wh). 

whl  is  window(,20.10^1,12„[Dialogwindow, visible]). 
text('#n  #n  ’)•  text(?niessage). 

text(’#n  #n  #n  Continue  ’)•  text(?option).  cextC  the  emphasis  file  ?’)■ 
button(Yes.yes,434.6). 
button(No,inain_inenu,43.8.6). 
end. 

topic  yes. 

close_window(?wh).  remove_topic(wh).  enable_window(?wmenu). 
close_window(?whl}.  iemove_topic(whl).  edl  is  ?editone. 
if  ?option  is  ’#fied  deleting  *  then  ( if  not(?message  is  ’  ’)  then  &deleteO 

.  else  edl  is  edit_line(?edl„3S.13,10)) 
else  ( if  ?opti<m  is  '#fred  adding*  then  &addO 
else  edl  is  editJine(?edl„3S,13,10)). 

end. 

topic  inain_menu. 

close_window(?wh).  reinove_topic(wh). 
close_window(?whl).  reinove.topic(whl). 
enable_window(?wnienu). 
selectionO- 

end. 

topic  get_data. 

ed  is  element(?eniphasisField,  where(?en:qphasisList,?edl)). 
ed2  is  elenient(?ed,l).  ed3  is  elenient(?ed,  3). 
ed4  is  elenient(?ed,  4). 
end. 

topic  edit 

keyvalue  is  ?edl. 
get_dataO- 

set_tiUe(?wmenu,’UPDATE  THE  EMniASIS’). 

FonnatDisplayO- 

button  (U|;idaie,yesUpdate^,14,lO). 
iHitton  (cancel,  notUpdate,  32,14,10). 

topic  notUpdaie. 

message  is  ’  ’.  disable_window(?wh).  display_info(). 

end. 

topic  yesUpdate. 
edl  is  get_text(?edl). 
ed2  is  get_text(?ed2). 
ed3  is  get_text(?ed3). 
ed4  is  get_text(?ed4). 
set_dispiay_pos(20, 16). 
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disable_wiiidow(?«4i). 
if  <Mie_(rf(?enipliasi«l.ist.  ?edl) 
then  (if  ?edl  is  Tkeyvalue 
then  updatedataO 

else  message  is  concat(?edl,’#fred  was  in  the  emphasis  Hie  !#d’) 
and  display.infoO) 

else  message  is  concat(?edl.’#Fred  was  not  in  the  emphasis  file  !  Please,  add  first’)  and 
display_infoO- 
end. 
end. 

topic  updatedaia. 

edrec  is  combine(?edl.?ed2,?ed3,?ed4). 
enqihasisField  is  replaceC?emphasisField,  (?ed].(?ediec]). 
enq^isList  is  ieplace(?enq)hasisList.?edfield,?ed). 
written  is  S. 

message  is  concat(?edl.’#fblue  has  already  been  updated  !!#d’). 
disabte_window(?wh). 
display_infoO. 
end. 

topic  &delete. 

disabte_tnenujtem(?m  1  ,(E&xit]). 
set_tide(?wmenu.*DELETE  THE  EMPHASIS  AREA'). 
displayboxO. 

topic  di^laybox. 

iext(#e).  set^display_pos(S.13).  lext(’#fblue  emphasis  area  to  be  deleted  :’). 
seL.du|day_pos(5.2).  edl  is  [].  opdon  is  *#fred  deleting  ’. 

text(’«fbliie  emphasis  areas  in  the  Database  #fired  (Select  the  enq^is  to  be  deleted)’). 
Lb  is  Ust_box(r'»emphasisListl  jiqjucdata.5.4.40..,t,0ist_select_event.double_cUck_cvent)). 
edl  is  edit_liiie(.3S.1330). 
button  ((XC,OIC45.S,10).  buttaa(Caacel,can.SS,9,10). 
end. 
end. 

tO{Hc  delete. 
get^dataQ. 

set_title(7wmenu, ’DELETE  THE  EMMASIS  AREA’). 

FormatDisplayO- 
set_display_pos(22.2).  text(?ed2). 
set_display_po8^4).  textCnll). 
set_display_pos(22,6).  textCed3). 
set_display_pos(22,8).  text(?ed4). 

set_disitey.4NM(2,14).  text(’#fted  Delete  the  emphasis  area?’). 
btttton(YES,yeadelem.28,14.10).  bulton(NO.  notdelete,40,14.10). 
wait( ). 
end. 

topic  yeadelete. 

enqihasisField  >  remove(?emphasisField.(?ed]). 
enqihasisList «  remove(?empiiasisList,  get_text(?edl)). 
written  is  S. 
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message  is  coacat(get_text(?edl),’#fblue  deletion  has  been  done’)- 

disable_window(?wh). 

display.infoO- 

end. 

topic  notdelete. 

message  is  ’  disable_window(?wh).  display_info(). 

end. 

tt^ic  can. 
test  is  0. 
selectionQ. 
end. 

to{HC  &add. 

disable_menuJtem(?ml,[E&xit]).  text(#e).  option  is  *#fred  adding’, 
edl  is  [}.  ed2  is  [].  ed3  is  (].  ed4  is  []- 
set_title(?wmenu,’ADD  THE  emphasis  ’). 

FbrmatDisplayO.  set_display_p^55.1). 
iext(’#fblue  emphasis  in  Database  ’). 
list_box(?enqihasisList.^S.2^.,.t). 
button  (’Add  dau  (OK)’.Ok_Add.l8.15.16). 
button  (cancel.  not_add.  39,lS.g). 
set_focu$(7ed2). 

topic  not.add. 

editone  is  get_text(?edl).  disable_window(?wh). 
message  is  ’  display _info(). 

end. 

lofnc  Ok.Add. 

editone  is  get_text(?edl).  disable_window(?wh). 
if  one_of(?emphasisList.  get_iext(?edl)) 

then  message  is  cancai(?editone.’#fred  was  in  the  eiiq>hasis  file  !#d’) 
else  if  ?editane  is  (]  or  gei_text(?ed2)  is  (]  then 

message  is  ’#fifed  Enter  emphasis  Number  &  emphasis  Name  Please  !’ 
else  (edrec  is  combine(get_text(?ed2).  get_text(?edl),get_text(?ed3),  get_text(?ed4))  and 
emphasisFleld  gets  ([?edrecD  and 
emphasisList  gets  (ge(_text(?edl))  and 
written  is  5  and 

message  is  coocat(get_iext(?edl),’#fblue  has  been  added  into  a  emphasis  file’)). 
display_infoO- 


end. 

end. 

topic  FormatDisplay. 

wh  is  window(,8,8,77.17„[Dialogwindow,visible]). 
texi(#e).  set_diq[>lay_pos(1.2).  disable_window(?wmenu). 
text(’#fblue  Emphasis  Number : 


Emphasis  Name  : 
Description 
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:#d’). 

if  iKX(?optioii  is  ’#fted  deleting  ’)  then 
edl  is  ediUine(?edl.^430)  and 
disfday.recordO- 

end. 

topic  display_ieconl. 

ed2  is  editjine(?ed2,.22,2.4). 
ed3  is  ediUine^ed3^6,40). 
ed4  is  edit_line(?ed4^8.40). 
end. 

u^c  &Help. 

wh  is  window(,8,8,74,16„[Dialogwindow,visible]). 
text  (#ejead  CinfoJtyp*,  concat  (’//’.emphasis)  ’W) ). 
setJile_pos  (’infoJiyp’.O.beginning). 
b2  is  bttttoiKOk.cominue30,14). 
set_facus(?b2). 
waitO- 

close(’infoJiyp’).  close.windowQ. 
end. 

topic  iqidatejBle. 
newjue(’eniphasisl.ut’). 

write(’eniphasisl.txt’.?emphasisList).  close(’einphasisl.txt’). 
new_file(’tnck.txt’). 

write(’track.ixt’,7emphasisfield),  close(’track.ttt’). 
end. 

topic  ’previous_menu’. 
if  Tv^tten  is  S  then  update_nieO. 
new_fi}e(’tempo.dat’). 
write(’iempoxIat’.2). 
clo«e_aUO. 

ck)ae_window(?wmenu). 

do(!niain). 

end. 

topic  ’()ait_to_system'. 
if  Twritten  is  S  then  update^eO- 
ckMe_aUO. 
clearO. 
end. 

(• - end  EMPHASISJCB - •) 


Program :  electiveJcb 
Author  :  Suprapio  *) 

wmenu  is  window(ielect*(put44.82.20„[l^)pup.,CoomrtMenu,ThickPraine.Shovi<nuldren,Siblm^ 
ml  is  menu(((Eftxit.  ’Previous_menu’,  ’Quit_to_system’],&Help]^ect). 
trackel  is  iead(’tiackelt.ut’). 

aitradt  is  string_toJist(eiemem(stnng_toJist(element(?irKkel,l).’//’).l)). 
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aielect  is  siTiiig_to_list(eIement(string_toJist(eleinent(?trackel,l).7/’),2)). 
tsorack  is  string_to_list(element(strin&_toJist(eleinem(?tTackel,2).7/’),l)). 
tselect  is  string_u>_list(eleiiient(striiig_toJist(element(?trackel.2),7r).2)). 
setrack  is  siTing_to_Iist(eleinent(sihng_toJist(elenient(?trackei,3).7/’).l))- 
seelect  is  siring_u>Jist(eleineiu(string_toJist(element(?trackel,3),7/’),2)). 
dbtrack  is  stnng_toJist(eleiiient(stTing_toJist(eletnent(?trackel,4),7/*),l)). 
dbelect  is  string_to_list(e!cinent(siring_toJist(eleniem(?trackel.4).7/’),2)). 
course!  is  read(’couisel.ut’).  close_all(). 
show_wiiidow(?wiiienu).  wrioen  is  0. 

selectionQ. 

topic  selection. 

text(!te).  set_tiUe(?wnienu,’  '). 
text  ('#n#fred 


end. 


MANAGEMENT  ELECTIVE  DATA  OBJECT#FBLUE 
- -#d’). 


set_di^lay4>os(I6,lS). 

text('#fblue  - ’)• 

buttonCUPDATE  THE  ELECTIVE  ■,&updaie.25.630). 
buttonCDELETE  THE  ELECTIVE  •.&delete.25.9.30). 
buttonCADD  THE  ELECTIVE*.ftadd.25. 12.30). 
waitO- 


topic  E&xiL 
test  is  0. 
selectionQ. 

end. 


topic  selectCitem). 

do  (?iteni). 
end. 


topic  ftupdate. 

set_title(?winenu. ’UPDATE  THE  COURSE  ELECTIVE’), 
opt  is  ’#fRd  updating’. 

edl  is  (].  ed2  is  (].  option  is  1.  choice  is  2.  election  is  3. 
FonnatDispIay(7opcioii,’updaled  !!’). 
b  is  button  ((^OK.22,9.8).  buuon  (Cancel,can.32,9,8). 
seUbcus(?b). 
topic  ok. 
option  is  1. 
ed2  is  (]. 
second_dis{^yO. 

b  is  button  (OK,OKE,22,8.8).  button  (Cancel,postpone,32,8,8). 
end. 

topic  oke. 

ed2  is  geL.iext(?ed2). 

do(coiKat(’No’4ist_of_char(?edl))).  cl08e_window(?whl).  remove_uq)ic(whl). 
o)dis?ed3. 
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option  is  2.  choice  is  S.  second_display(). 
button  (OK,continue^,12,8). 
button  (cancel.postpone.32.12.8). 
end. 

topic  postpone. 

message  is  ’  ’.  display_info(). 

end. 

topic  Nol.  if  (me_of(?aitTack,  ?ed2)  then  ed3  is  ‘Required*  else  ed3  is  ‘Optional*,  end. 

topic  No2.  if  one_of(?tstrack,  ?ed2)  then  ed3  is  ‘Required*  else  ed3  is  ‘Optional*,  end. 

topic  No3.  if  one_of(?setiack,  ?ed2)  then  ed3  is  ‘Required*  else  ed3  is  ‘Optional*,  end. 

topic  No4.  if  one.of^dbtrack,  ?ed2)  then  ed3  is  ‘Required*  else  ed3  is  ‘C^tional*.  end. 

topic  continue. 

ed3  is  get_text(?ed3).  ed2  is  get_text(?ed2). 
do(coacat(‘update’,  IisL.of_char(?edl))).  written  is  S. 
message  is  concat(?ed2,‘#fblue  has  already  been  updated  !*).  di^lay.infoO- 
end. 

topic  updatel. 

if  not  (one_of(?ed3.  ?old)) 
then  ( if  one_of(?aitrack,  ?ed2) 

then  aitrack  is  remove(?aitrack,  ?ed2)  and  aielect  gets  [?ed2] 
else  aielect  is  remove(?aielect,  ?ed2)  and  aitnu:k  gets  [?ed2]). 

end. 

topic  update2. 

if  not  (one_of(?ed3,  ?old)) 
then  ( if  ooe_of(?tstrack.  ?ed2) 

then  istrack  is  remove(?tstrack,  ?ed2)  and  tselect  gets  [?ed21 
else  tselect  is  iemove(?tselect.  ?ed2)  and  tstrack  gets  [?ed2]). 

end. 

topic  update3. 

if  not  (one_of(?ed3,  ?old)) 
then  ( if  ooe_of(?setrack,  ?ed2) 

then  setrack  is  Teniove(?setrack,  ?ed2)  and  seelect  gets  [?ed2] 
else  seelect  is  Temove(?seelect,  ?ed2)  and  setrack  gets  (?ed21). 

end. 

topic  update4. 

if  not  (one_of(?ed3,  7old)) 
then  ( if  oae_<rf(?dbtrack,  ?ed2) 

then  dbtrack  is  iemove(7dbtrack,  ?ed2)  and  dbelect  gets  [?ed2] 
else  dbelect  is  reinove(?dbelect,  ?ed2)  and  dbtrack  gets  [?ed2]). 
end. 

end. 

to(»c  Adelete. 

set_title(?wmenu, ‘DELETING  THE  COURSE  ELECTIVE  *).  election  is  2. 
edl  is  [].  ed2  is  [].  option  is  1.  cht^  is  2.  election  is  2.  opt  is  ‘fffred  deleting*. 
FonnatDispUy<?optkm,‘deleted  !!*). 
b  is  button  (OK,OK^9.8).  button  (Cancel.can,32,9.8). 
set_focus(7b). 
topic  ok. 
option  is  1. 
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ed2is[]. 

secoiid_displayO- 

b  is  bunco  (OK,OKE,22,8,8).  button  (Cancel,postpone,32,8,8). 
end. 

tt^c  postpone. 

message  is  ’  display_info(). 
end. 

topic  oke. 

ed2  is  get_text(?ed2). 

do(concat(’NoMist_of_char(?edl))).  close_window(?whl).  remove_topic(whl). 
option  is  2.  choice  is  4.  second.displayO- 
butum  (’Delete  (OK)',continue,22,12,13). 
bunon  (CanceljK>t_delete,36,12,8). 
end. 

topic  Mol.  if  one_of(?aitrack.  ?ed2)  then  ed3  is  ’Required*  else  ed3  is  ’Optional’,  end. 
topic  No2.  if  one_of(?tstrack.  ?ed2)  then  ed3  is  ’Required’  else  ed3  is  ’O^onal’.  end. 
topic  No3.  if  one_of(?setrack,  ?ed2)  then  ed3  is  ’Required’  else  ed3  is  ’Optional’,  end. 
topic  No4.  if  one_of(?dbtrack,  ?ed2)  then  ed3  is  ’Required’  else  ed3  is  ’C^ional'.  end. 
topic  not.delete. 

message  is  ’  *.  display_info(). 

end. 

topic  continue. 

ed3  is  get_text(?ed3).  ed2  is  get_text(?ed2). 
do(concat(’delete’Jist_of_char(?edI))).  written  is  S. 

message  is  ooncat(?ed2,'#fblue  has  been  deleted  from  Database’).  display.infoQ- 
end. 

topic  delete  1.  if  one.of(?aitrack.?ed2)  then  aitrack  is  remove(?aitrack,?ed2) 
else  aielect  is  remove  (?aielect,?ed2).  end. 
topic  delete2.  if  one_of(7tstrack,?ed2)  then  tstrack  is  remove(?iscrack,?ed2) 
else  tselect  is  remove  (?iselect.?ed2).  end. 
topic  deletes,  if  one_of(?8eirBck.?ed2)  then  setrack  is  remove(?setrack,?ed2) 
else  seelect  is  remove  (?seelect.?ed2).  end. 
topic  deleted,  if  one_of(?dblrack,?ed2)  then  dbirack  is  Temove(?dbtrack,?ed2) 
else  dbelect  is  remove  (?dbelect,?ed2).  end. 

end. 

topic  can. 

close.windowQ.  enable_window(?wnienu). 
selectionQ. 
end. 

topic  display_info. 

disable_window(?wmenu). 
disable_window(?wh).  disable_window(?whI). 
wh2  is  window(,19,10^,l2„[Dialogwindow,visiblel). 
text(’*n  #n  ’).  text(?message). 

text(’#n  #n  #n  Continue  ’).  text(?op().  text(’  the  req  track  elective  ?’). 
button(Yes,yes,40.6,j). 
button(No4nain_menu,47,6,5). 
end. 

tqnc  yes. 

close_window(?whl).  remove_topic(whl). 
close_window(?wh2).  rcmove_topic(wh2). 
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if  exists(editl)  then  edl  is  ?editl.  if  exists(edit2)  then  ed2  is  ?edit2. 
enable_window(?wh).  if  one_of((2.3],?election)  then  choice  is  2. 
end. 

topic  main.menu. 

close_window(?wh).  renK>ve_topic(wh). 

close_window(?whl).  reniove_topic(whl).  close_window(?wh2).  removc_topic(wh2). 
enable_window(?wnienu). 
selectumO- 
end. 

topic  &add. 

set_tiae(?wnienu.’ADDING  THE  CX)URSE  ELECTIVE’), 
edl  is  [].  ed2  is  (].  ed3  is  [].  option  is  2.  choice  is  1.  election  is  1. 
FonnaiDisplay(?option,*added’).  opt  is  ’adding’, 
button  ((K.continue^94). 
button  (cancel,  can,  30  ,9,8). 

u^ic  continue. 
second.displayO- 
button  (OK,oke,22,12,S). 
button  (cancel,  not_add,  30  ,12,8). 
end. 

topic  oke. 

ed2  is  get_text(?ed2).  ed3  is  get_text(?ed3).  written  is  S. 

do(coacat(&,?edl)).  message  is  concai(?ed2,’#fblue  has  been  added  into  Database’). 
ed2  is  [].  ed3  is  {].  display_infoO. 
end. 

topic  not_add. 

message  is  ’  '.  display.infoO- 
end. 


topic  &1.  if  ?ed3  is  ’Required’  then  aitrack  gets  (?ed2)  else  aielect  gets  (?ed2).  end. 

topic  &2.  if  ?ed3  is  ’Required’  then  tstrack  gets  (?ed2)  else  tselect  gets  (?ed2).  end. 

topic  &3.  if  ?ed3  is  ’Required’  then  setrack  gets  (?ed2)  else  seeiect  gets  (?ed2).  end. 

tq)ic  &4.  if  ?ed3  is  ’Required’  then  dbtrack  gets  (?ed2)  else  dbelect  gets  (?ed2).  end. 

end. 

u^c  FonnatDisplay(optionjob). 

wh  is  window(,8,9,77,13„(Dialogwindow,visiblel).  disable_window(?wmenu). 
text(#e). 

text(’#n#fblue  Select  the  elective  track  to  be  ’).  text(?job). 

text(’#n#n#fblue  finphasis  number  :#d’). 

radio_button([(’l  -  AitiEcial  Intelligence’,26,4], 

[’2  •  Tactical  Computer  System’,26,S], 

(’3  -  Software  Engineering’,26.6], 

[’4  -  Military  Data  Processing’,26,71],track). 

edl  is  edit_line(?edl„22,4,3). 

end. 
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topic  second.display. 
disable_wiiKk>w(?wh). 

whl  is  window(.9,8,7S,lS..(Dialogwindow, visible]). 
text(#e).  text(’#fblue 

Emphasis  number : 


Course  number  ;#d'). 

seLdisplay_pos(22^).  text(?datairack). 
ed2  is  ediUinc(?ed2,.22^.9). 
if  ?option  >  1 

then  radio_buaon([(Required.33.9].(C)pdonal.33.10]l.elective)  and 
set_display_pos(2,9)  and 
text(’#fblue  Elective  type  :  #d  *)  and 
ed3  is  editjine(?ed3„22,9,10). 
set.display_pos(42,3). 
texi(’#fblue  Req  Track  Elective’), 
if  ?edl  is  1 

then  iracklist  is  combine(?aitrack,  ?aietect) 
else  ( if  ?edl  is  2 

then  tracklist  is  cofflbine(?tstrack.  ?tselect) 
else  ( if  ?edl  is  3 

then  tracklist  is  ?setrack 
else  tracklist  is  ?dbtrack)). 

list_box(7tracklist,input_data.43.4,10...i.tlist_seiect_cvent.double_click_event]). 
if  ?election  is  1  then  set_display_pos(63,2)  and  text(’#fblue  Available’)  and 
set_display_pos(633)  and  text(’#fblue  Courses’)  and 

list_box(remove(7coursel,?txacklist)4iew_data.63.4.10,„t.[list_selecLevent,double_cUck_event]). 

end. 

topic  input_daia(iiem). 
if  one_<tf([23j.7choice) 

then  ed2  is  7item  and  ed2  is  editjine(7ed2„224,9).  edit2  is  7item. 
end. 

topic  new_data(item). 

7choice  is  1 

then  ed2  is  Titem  nd  ed2  is  edii_line(7ed2„224,9).  editl  is  7item. 
end. 

topic  track(item). 
datatrack  is  Titem. 

char  is  lisi^(rf_char(7item).  edl  is  first(7char). 
edl  is  ediUine(7edlJ12.43). 
edl  is  get_text(7edl).  editl  is  ?edl. 
end. 


topic  elective(item). 
if  one_<rf((l^].7choice) 

then  ed3  is  Titem  and  ed3  is  edit_line(7ed3.^,9.10). 
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end. 


topic  &HeIp. 

wh  is  window(,8.8.74,16..tDialogwindow,visibIe]). 
text  (#e4ead  (’infoJiyp*,  concat  (’//’.elective)  ,’//*)  ). 
set_file_pos  (’infoJtyp’.O.begiiming), 
b2  is  button(Ok,continue,30,14). 
set_focus(?b2). 
wait(). 

close.windowQ. 

end. 

topic  update.file. 
trackel  is  []. 

trackel  gets  list_to_string(coinbine(list_to_string(?aicrack),list_to_string(?aielect)),’//’). 
trackel  gets  list_to_string(coinbine(list_to_string(?tstiack)4ist_lo_string(?tselect)), ’//’). 
trackel  gets  list_to_string(combine(list_to_string(?setrack),list_to_string(?seelect)),’//’). 
trackel  gets  list_to_string(coinbine(list_to_string{?dbtrack),list_to_string(?dbelect)).’//’). 

(•  new_file(’trackelt.ut’). 

write(’trackelt.ttt’.?trackel).  close(’trackelt.ttt’).*) 
end. 

topic  ’pievious_nienu'. 
new_file(’teinpo.dat’). 
wriie(’tenipoxlat’.2). 

if  Twritten  is  5  then  update.rileO-  close.allQ-  close_window(?wmenu). 
do(!main). 
end. 

topic  ’quit_to_system’. 

if  ?wriucn  is  5  then  updaie^flleO- 
close.allO- 
clearQ. 
end. 

(* - end  ELECTIVEJCB - *) 


(•  Title  :  courseJtb 
Author  :  suprapto 


•) 

wmenu  is  window(8eleci:&quit.5.5.82.21,.[Popup,,ControlMenu,ThickFrame,ShoviOildren,Siblings]). 

ml  is  iiienu([[E&xit,  ’Previous_meiiu’,  ’Quit_to_system’l,&Help], select). 
set_title(?winenu,’COURSE  OBJECT’). 

set_UUe(?wmenu,’COURSE  OBJECT’),  test  is  0. 

show_window(? wmenu).  written  is  0. 

wh  is  window(.22,13,46.4„[Dialogwindow,visibleI). 

text(’#n  #fired  Loading  Dau . ’). 

use_font(system_font). 
make_modal(?wh).  show_window(?wh). 
read_file().  close.windowQ. 
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topic  read_file. 

course  is  read(*course.txt’). 

course  1  is  read(’coursel.ut’)- 

courseNum  is  string_to_list(eIemem(s!ring_io_list(?coursel,7/*),l)). 
courseName  is  string_io_Ust(element(string_io_list(?couTscl.7/’),2),’@’). 
length  is  listJength(?courseNum).  no  is  1. 
repeat 

courseList  gets  concat(element(?courseNuin,?no),’  ’,element(?courseName,?no))  and 
no  is  ?no  +  1 
until  ?no  >  ?length. 
end. 

selectionO. 
topic  selection. 

text(#e).  enable_menu_itcm(?ni  1  ,[E&xit]). 
text  (’#n#fred 

MANAGEMENT  COURSE  DATA  OBJECT#FBLUE 
- - 

set_display_pos(  16, 1 5). 

text('#fblue  - '). 

buttonCUTOATE  THE  COURSE  •.&update.24.6.32). 
buttonCDELETE  THE  COURSE  ’.&detete,24.9.32). 
butumCADD  THE  COURSE  *,&add,24,12.32). 
waitO- 
end. 

topic  select(item). 

do  (?itein). 
end. 

tq>ic  &update. 

set_title(?wmenu,  UPDATE  THE  COURSE’). 
disabte_nvenu_item(?ml,tE&xitJ).  option  is  ’#FRED  updating’. 
displayboxQ. 

topic  displaybox. 

text(#e).  set_display_pos(5,13).  tcxt(’#fblue  Course  Number  to  be  updated  :’). 
set_display_pos(S.2).  edl  is  []. 

text(’#ftlue  COURSES  in  the  Database  #fTed  (Select  the  course  to  be  updated)’). 
Lb  is  list_box([?courseList],input_data,5.4,40.„t,ltist_selcct_event,double_click_event)) . 
edl  is  edit_line(,.35,13,10). 
button  (OiC,(%,SS,3,10).  buuon(Cancel,can,55,9,10). 
end. 
end. 

topic  input_data(iteni,info_name). 

edfield  is  ?item.  edl  is  string_to_list(7edfield).  edl  is  first(?edl). 
edl  is  editJine(?edl„3S,13,10). 

if  ?info_name  is  ’double_click_event’  then  edl  is  gei_text(?edl)  and 
editone  is  ?edl  and  check^dataQ. 


75 


end. 


topic  Ok. 

if  nol(get_text(?edl)  is  D)  then  edl  is  get_«ext(?edl)  and 
editone  is  ?edl  and  check_data() 
else  input_data(getJist_box(?Lb)). 


end. 

tq>ic  check_dataO. 

if  ?opdon  is  ’#fred  Updating*  then  edit_courseO 
else  ( if  ?option  is  ’#fTed  deleting  ’  then  delete.courseQ 
else  add.courseO). 

end. 

topic  edit^couise. 

if  one_of(?couTseNuin,  ?edl) 
then  editO 
else 

message  is  concat(?edl.  ’#fblue  was  not  found  in  the  course  file  !’)  and 
display.infoO. 

end. 

topic  delete.course. 

if  one_of(?couTseNum,  ?edl) 
then  deleteO 
else 

message  is  concat(?edl,’#fTed  was  not  found  in  the  course  file  !!’)  and 
display_infoO- 
end. 

topic  di^lay_info. 

disable_window(?wmenu). 

disable_window(7i^). 

whl  is  window(^.10,51,12„[Dialogwindow,visible]). 
text(’#n  #n  ’).  text(?message). 

text(’#n  #n  #n  Continue  ’).  text(?op(ion).  text(*  the  course  file  ?’). 
button(Yes,yes3S,6,6). 
butt(m(No4nain_menu,43.6,6). 
end. 

tt^ic  yes. 

close_window(?wfa).  remove_iopic(wh).  enable_window(?wmenu). 
close_window(?whl).  reniove_topic(whl).  edl  is  ?editone. 
if  ?opti(m  is  ’#fred  deleting  ’  then  ( if  not(?message  is  ’  ’)  then  &deleteO 

else  edl  is  editjine(?edl„35.13,10)) 
else  ( if  ?option  is  ’#fTed  adding’  then  &addO 
else  edl  is  editjine(?edl,.33,13.10)). 
end. 

topic  main_menu. 

close_window(?wh).  remove.topicCwh). 
close_window(?whl).  iemove_topic(whl). 
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enable_wiiidow(?wnienu). 

selectionO- 


end. 

topic  get_data. 

Idrec  is  eIenient(?course,  where(?courseNum,  ?edl)). 

cd  is  string_ioJisi(?ldrec,7/’). 

ed2  is  element(?courseName,  where(?courseNum,  ?edl)). 

ed3  is  riTst(stTing_toJist(elenient(?ed,  2))). 

edp  is  elemem(?ed.3). 

ed4  is  last(stnng_to_list(eleinent(?ed,  2))).  edS  is  elenient(?ed,4). 
ed6  is  element(?ed,  5). 
end. 

topic  edit. 

keyvalue  is  ?edl. 

get_dataO. 

set_titie(?wmenu, 'UPDATE  THE  COURSE’). 

FonnatDisplayO. 

button  (Update,yesUpdate^.l4.lO). 
button  (cancel.  notUpdate,  32,14.10). 

topic  notUpdate. 

message  is  ’  *.  display.infoQ. 

end. 

topic  yesUpdate. 
edl  is  get_text(?edl), 
ed2  is  get_text(?ed2). 
ed3  is  get_iext^ed3). 
ed4  is  get_text(?ed4). 
edS  is  get_text(?edS). 
edp  is  get_text(?edp). 
e(k$  is  get_text^ed6). 
set_display_pos(20,16). 
disable_window<?wh). 
if  one_of(?courseNuin,  ?edl) 
then  (if  ?edl  is  ?keyvalue 
then  updatedataO 

else  message  is  concat(?edl,'#fred  was  in  the  course  file  !#d’) 
and  di^lay.infoO) 

else  message  is  concat(?edl,'#Fred  was  not  in  the  course  file  !  Please,  add  first’)  and 
display.infoO- 

end. 

end. 

topic  updatedata. 

edrec  is  lisi_to_string(combine(?edl,concat(7ed3.’  ’.?ed4),?edp,?cd5.?ed6),’//’). 
course  is  replace(?course,  ?ldrec,?edrec). 
courseName  is  ieplace(?courseName,  eleinent(?courseName, 
where(?courseNum,?edl)),  ?ed2). 
ed  is  concat(7edl.’  ’).  ed  is  concat(?ed,?ed2). 
courscList  is  replace(?courseList,?edfield,?ed). 
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written  is  S. 

message  is  concat(?edl,’#fbIue  has  already  been  updated  !!#d’). 
display.infoO- 

end. 

u^ic  &delete. 

disable_menu_item(?m  1  ,[E&xit]) . 
set_title(?wmenu, ’DELETE  THE  COURSE’). 
dispIayboxO- 

topic  displaybox. 

text(ite).  set_display_pos(S,13).  text('#fblue  Course  Number  to  be  deleted  :’). 
set_display_pos(S,2).  edl  is  [].  <^on  is  '#fred  deleting  ’. 

text(’#fblue  COURSES  in  the  Database  #fred  (Select  the  course  to  be  deleted)’). 
Lb  is  list_box([?courseList],input_data,S,4,40,..t,[list_select_event,double_cliclc_event]). 
edl  is  editJine(„3S,I3.10). 
button  (OK,OK^S,S,10).  button(Cancel,camSS,9.10). 
end. 
end. 

topic  delete. 
get_dataO- 

set_title(?wnienu, ’DELETE  THE  COURSE’). 

FormatDisplayO* 
set_display_po8(20.2).  text(?edl). 
set_display_pos(20.4).  text(?ed2). 
set_display_pos(20.6).  text(?ed3).  text(’  /  ’).  text(?ed4). 
set_disptay_pos(20.8).  text(?edp). 
set_display_pos(20.10).  text(?edS). 
set_display_pos(20.11).  text(?ed6). 
set_display_pos(4,14).  (ext(’#ried  Delete  this  Course  ?’). 
button(YK,yesdelete,24,14,10).  button(NO,  noidelete.35,14,10). 
wait( ). 
end. 

topic  yesdelete. 

course  «  remove(?course,?ldiec). 
courseList  s  remove(?courseList,?edfield). 
courseNum  =  remove(?courseNum,  ?edl). 
courseName  s  remove(?courseName,  ?ed2). 
written  is  5. 

message  is  concat(?edl,’#fblue  deletion  has  been  done’). 
display.infoO- 
end. 

topic  notdelete. 

message  is  ’  ’.  display.infoO- 
end. 

topic  can. 
test  is  0. 
selectionO- 
end. 
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topic  &add. 

disable_nienu_itein(?inl,(E&xit]).  text(#e).  option  is  '#fred  adding’, 
edl  is  [].  ed2  is  [].  ed3  is  [].  ed4  is  [].  edp  is  [].  ed5  is  [].  ed6  is  []. 
sei_Utle(?wmenu,’ADD  THE  COURSE  ’). 

FonnatDisplayO-  set_display_pos(SS,l). 
text(’#fblue  Courses  in  Database  ’). 
list_box(?CourseList,^  1 ,2,25,„t) . 
button  (’Add  data  (OK)’.Ok_Add,l8.15.16). 
button  (cancel,  not_add.  39,15,8). 
setJfocus(?edl). 

topic  not_add. 

editone  is  get_text(?edl).  disable_window(?wh). 
message  is  ’  ’.  display_info(). 
end. 

topic  (%_Add. 

edittxie  is  get_text(?edl).  disable_window(?wh). 
if  one_of(?courseNum,  get_text(?edl)) 

then  message  is  concat(?editone,’#fred  was  in  the  course  file  !#d’) 
else  if  (?editone  is  []  or  get^text(?ed2)  is  (])  then  message  is  ’#fred  Enter  Course  Number  &  Course  Name  Please 

»’ 

else  (edrec  is  combine(get_text(?edl),  concat(get_text(?ed3),’  ’,  get_text(?ed4)) 

get_text(?et^),  get_text(?edJ),get_text(?ed6))  and 
course  gets  Oist_to_$tring(?edrec,’//’))  ^  courseName  gets  get_text(?ed2)  and 
ed  is  concat(get_text(?edl),’  ’,get_text(?ed2)) 
and  courseNum  gets  (get_text(?edl))  and  courseList  gets  (?ed)  and 
set_di9lay_pos(S0,lS)  and  written  is  S  and 

message  is  concat(get_text(?edl),’#fblue  has  been  added  into  a  course  file’)). 

display.infoO- 


end. 

end. 

topic  FormaiDisplay. 

wh  is  window(,l7,8,6S,17„(Dialogwindow,visiblel). 
text(#e).  set_di^lay4)os(l,2).  disable_window(?winenu). 
text('#fblue  Course  Number ; 

Course  Name : 

Credit  LecA^ : 

Prerequisite  : 

Description  :#d  ’). 
if  not(?qxion  is  ’#fTed  deleting  ’)  then 
edl  is  editjine(?edl ,,20,2,8)  and 
display_recordO. 

end. 

topic  display_record. 

ed2  is  editjine(?ed2„20,4,30). 
ed3  is  editjine(?ed3„20,6,4). 
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seu.display_pos(2S.6).  text(T). 
ed4  is  edit_line(?ed4^7,6,4). 
edp  is  edit_liiie(?e<Jp,^.8;i5). 
ed5  is  edit_line(?ed5„20,10,40). 
ed6  is  editjine(?ed6.,20,12,40). 

end. 

topic  &Help. 

wh  is  wi]]dow(.8,8,74,16„|Dialogwindow, visible]), 
text  (#ej*ad  CinfoJiyp’,  concat  (7/*.course)  'ID  ). 
set_file_pos  (’infoJiyp’,0,beginning). 
b2  is  button((^conunue.30.14). 
topic  continue. 

close('infoiiyp’).  close.windowQ. 
end. 
end. 

tqnc  update_file. 

new_file(’coursel  .ttt’). 

write(’coursel  .ttt’4ist_to_string(combine(list_to_string(?courseNum.’  '), 
lisL.to_string(?courseNanie, 
close(*couisel.m’). 
new_file(’oourse.txt’). 

write(*coune.txt’,?course).  close(’oourse.txt*)- 
ciose_aI10. 
end. 


topic  'previous.menu*. 
new_file(*tempo.dat’). 
write(’tenipoxlat’^). 
if  Twritten  is  S  then  updaie.fileO- 
close_windowO< 
do(!main). 
end. 

topic  ’quit_to_system’. 
if  Twritten  is  S  then  update_fileO. 
close_allO. 
clearO- 
end. 

(• - end  COURSEJCB - •) 


(*  Program  :  quaneritb 
Programmer :  supiapio 

*) 

wmenu  is  window(seIect;&quit4^,82^„lPbpup„ControlMenu,ThickFramc,ShowChildren,Siblingsl). 
ml  is  mentt([[E&xit.  *nrevious_menu’,  ’Quit_to_system’].&Help].select). 
set_title(?wmenu,’QUARTER  OFFERING  OBJECT’),  written  is  0. 
show_window(?wmenu).  qtrName  is  (Mnter^pting^ummerJFall]. 

qtrList  is  [1,23,4]. 
message  is  read(’QUARTER.TXT’). 

(•  read  file  quarter.txt  (quarter#,  year,  (course#)) 

It  contains  courses  to  be  offered  in  each  quarter  *) 
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selectionO- 


select(option). 

do(?opcion). 

end. 

u^ic  selection. 

text(#e).  text  (’#n#fred 

MANAGEMENT  QUARTER  OFFERING  OBJECT#FBLUE 


set_display_pos(20, 15). 

text(’#fblue - 

buttonCUPDATE  THE  QUARTER  OFFERING  •.&update.20,6.42). 
buttonCDELETE  THE  QUARTER  OFFERING  ’.&dclcte.20.9.42). 
buttonCADD  A  NEW  QUARTER  OFFERING  ’.&add.20.12.42). 
wailQ. 
end. 

uq)ic  &add. 

set_dtle(?wmenu.’  ADD  A  NEW  RECORD  QUARTER  OFFERING’), 
edl  is  [].  ed2  is  [].  ed3  is  [].  opt  is  ’«fied  adding*. 
dispUyO- 
end. 


topic  display. 

wh  is  window(.7.8.78.16..[Dialogwindow.visibleJ). 
uae_font(8ysteni_font). 
inake_n)odal(?wh). 

year  is  0.  quarter  is  0.  edl  is  [J.  ed2  is  {]. 

text(#e).  set_display_pas(26J).  cext(’#fblue  Select  the  quarter  to  be  added’). 

set_display_pos(26J).  text(’#fred - 

radio_button(ltWimer.38.61.lSpring^.6J. 

[Suinnier38,7],[Fall^,7]],  quaner). 
radio.buttt»(I[9U3.9J.I92.42,91.t93^1.9]l,year). 
edl  is  edit_liiie(7edl^7.6.9). 
edl  is  edit_line(7ed2.^7,9,4). 
set_display_pos(03). 
text(’#fblue 

Quaner  Name 


Year  :#d’). 

buttoii(Ok,ol;_add^,12,6).  button(cancel,canccllation,37,12.8). 
show_window(?tMi). 
end. 

topic  ok_add.  checkdatasQ.  end. 

topic  checkdatasQ. 
searcb_(iataO. 
listboxformatO. 
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end. 


topic  listboxfonnat. 

year  is  0.  quarter  is  0. 

text(#e).  set_display_pos(24,2).  text(’Enter  the  course  to  be  added’). 

set_display_pos(24.3).  text(’#fred - #d’). 

set_display_pos(12,6).  text(’#fblue  Quarter  Name  :  *).  text(?edl). 
set_display_pos(12,9).  text(’#fblue  Academic  year  :  ’).  text{?ed2). 
set_display_pos(SS,4). 
set_display_ix>s(SS.4). 
text(’#fblue  Courses  are  offered*). 
seL.display_pos(60^. 

textC’in  text(?editl).  text(’  ').  text(?edit2). 

Listbox  is  list_box([?ieconlNum]„60.6,10...t). 

$et_di^play_pos(10,12).  text(*#fblue  Course  Number  :’). 
ed3  is  edit_line(?ed3^.12,10). 
set_display_pos(9. 14). 

text(’#ftlue  Add  this  course  ?  ').  buuon(Yes,yesadd,27,14.7). 
button(No4>ot_ad(U7, 14,6). 
end. 

topic  continueAdd. 

close.windowO.  ed3  is  ().  listboxfoimatO- 
end. 

topic  not.add. 

info  is  ’  ’.  display.infoO- 

button(Yes,cofitiiiiieAdd,  42,4,5).  button(No,MainMenu,49,4,S). 
sbow.windowO. 
end. 

topic  yesAdd. 

ed3  is  get_iext(7ed3). 

if?ed3isn  then  info  is #fied  Select  course  number,  please  !’  and 
test  is  3  and  di^  ;_nies8age0 
else  (if  aoe_<rf(?recoidNum,  ?ed3)  then 

info  is  caiicat(?ed3,’*fied  was  in  the  database  !’) 
else  AddRecoidO  and  written  is  5  and 

info  is  coacat(?ed3,'*fbIue  has  been  added  into  Database’))  and 
display.infoO  and  bunoa(Yes,cominueAdd,  42,4,5)  and  button(No,MainMenu, 49,4,5) 
and  show.windowQ. 

end. 

topic  dtsplay.info. 

w2  is  window(,16,12,56,8„[Dialogwindow,visible]). 
text(*#n  ’}.  text(?info).  text(’«n  *n  '). 
text(’  Continue  ’).  text(?opt).  text(’  the  quarter  offering  ?’). 
use_foat(system_fom). 
iiudce_modal(?w2). 
end. 


topic  addrecord. 

recordNum  gets  {?ed3). 

newRec  is  concac(?Year_<3tr,  '//*,  list_to_string(?recordNum,’  ’)). 
message  is  replace(?message,  ?oldRec,  TnewRec). 
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oldRec  is  TnewRec. 
end. 

(• - *) 

topic  &update. 

set_title(?winenu, ’UPDATE  A  QUARTER  OFFERING’), 
edl  is  [].  ed2  is  [].  ed3  is  [].  opi  is  ’#fred  updating’, 
header  s  ’#fblue  Select  the  quarter  to  bo  updatedid’. 

Fonnat_DispIayO. 

end. 

topic  fomiat_display. 

wh  is  window(,7,8,78,16,.[Dialogwindow, visible]). 
use_font(system_font). 
make_modal(?wh). 

year  is  0.  quarter  is  0.  edl  is  (].  ed2  is  []. 
text(#e).  set_display_pos(26,2).  text(?header). 

set_dispiay_pofi(26,3).  text(’#fred - #d’). 

radio_buuon([[Winter38.6],(Spring^,6], 

(Sununer.38.7].(Fali^.7]],  quarter). 
radio_button([[9U3.9J.(92,42.91.[93^1.9]].year). 
edl  is  edit_line(?edl,J7,6,9). 
ed2  is  edit_line(?ed2,.27.9.4). 
set_display_pos(0^). 
text(’#fblue 

Quarter  Name 


Year  :#d’). 

buiian(Ok.ok_updaie.28, 1 2,6).  button(cancel,cancellati(H),37, 1 2,8). 
show_window(?wh). 
end. 

topic  cancellation, 
info  is  (]. 

display.infoQ.  button(Yes,coatinue,  42,4,5).  buuon(Nojnain_menu,49,4,5). 
show_windowO. 

topic  continue.  close.windowQ.  end. 

topic  n)ain_nienu.  close.windowO.  close.windowQ.  end. 

end. 

tqnc  ok.update. 

if  (  not(?quarter  is  0)  and  not(?year  is  0))  then  search.dataO  and  ed3  is  []  and  display.boxQ 
else  info  is  ’#n  #fnd  Please  select  the  options  ’  and  test  is  0  and 

display_messageO- 

end. 


topic  search_data. 

no  is  1.  recordNum  is  [].  totalrec  is  listjength(?niessage). 
repeat 
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oldiec  is  deniem(?niessage,?no)  and 
record  is  stnng_toJist(?oldrec,7/’)  and 

( if  firsKTrecord)  is  concat(7ed2,’  •,element(?qtrList.  where(?qtrNaine,?edl))) 
then  Year.Qtr  is  rirst(?iecord)  and 

recordNum  is  string_to_lisi(rest(?record),’  ’)  and  no  is  ?totalrec)  and 
no  *  ?no  +  1 
until  ?No  >  ?totalTec. 


end. 


topic  display.box. 

year  is  0.  quarter  is  0.  edit3  is  H-  cd3  is  (]. 
text(#e).  set_display_pos(lS,2). 

text(’Select  a  course  number  to  be  updated  from  #hed  the  list  box  ’)■ 
set_di^lay_pos(l5,3). 

text(’#fired - 

set_display_pos(12,6).  text(’#fblue  Quarter  Name  :  ')•  text(?edl). 
set_disp]ay_pos(12.8).  text(’#fblue  Academic  year  :  *)•  tex^?ed2). 
set^dispiay_pos(S5.4). 
text(’#fblue  Courses  offered’). 
set.display_pos(S54).  text(*in  *). 
text(?editl).  text(*  *).  text(?edit2). 

Lb  is  Iist_box([?recordNum]4nputdatas,SS,6,12,„t,list_select_event). 
set_display_pos(10,I0).  text(*#fblue  Previous  Course  Number  :’). 
set_display_pos(10,12).  text(*#fblue  New  Course  Number  :’). 

ed3  is  ediUine(?ed3.J8.12.10). 
set_display4XM(9,14). 

text(’#ftlue  Update  this  course  ?  *).  button(Yes.yesUpdate.29.14,6). 
button(Cancel^t_Update,38, 14,8). 
end. 


topic  not.updaie. 

info  is  ’  ’.  display_info(). 

button(Yes,continueUpdate,  42,4,5).  button(No,MainMcnu,49,4,5). 
show_windowO. 
end. 

topic  iiqiutdatas(item). 

edit3  is  Titem.  sei_display_pos(38,10).  text(?edit3). 

end. 

topic  display^mesaage. 

wh  is  wiiidow(,28,12,40,6„(Dialogwindow,visibIe]). 
text(?info). 

button(Coiitinue4»n,  1 3,4, 1 5). 
use.font(system_fant). 
make_modial(?wh).  sbow.windowO. 
topic  con.  close.windowO. 
if  ?test  is  1  then  display.boxO 

else  if  ?test  is  2  then  formatdisplaysO 

else  if  Ttest  is  3  then  listboxformatO- 


~#d’). 


84 


topic  yesUpdate. 

ed3  is  get_text(?ed3). 

if  ?ed3  is  []  then  info  is  ’#n  #fTed  Select  course  number,  please  !'  and 
test  is  1  and  display.messageO 
else  (if  one_of(?rec«dNuin,  ?ed3)  then 

info  is  c(mcat(?ed3,’#fred  was  in  the  database  !*) 
else  updaterecordO  and  written  is  5  and 

info  is  concat(?edit3,*#fblue  has  been  changed  with  ’.?ed3,’  from  the  database’))  and 
display.infoO  and  button(Yes,continueUpdate,  42.44)  and  button(No,MainMenu.49,4.5) 
and  show.windowQ. 
end. 

topic  continueUpdate. 

close.windowO-  ed3  is  (].  display_box(). 
end. 

topic  MainMenu. 
close.windowQ.  close.windowQ. 


tqhc  updaterecord. 

recordNum  is  replace(?iec<»dNum,?edit3.?ed3). 
newRec  is  concat(?Year_(3tr.’//’.list_to_string(?recoidNum.’  *)). 
message  is  ieplace(?inessage.  ?oldRec,  TnewRec). 
oidRec  is  TnewRec. 
end. 


topic  &deleie. 

set_title(7wnienu.’DELETE  A  RECX>RD  OF  QUARTER  OFFERING’), 
edl  is  [].  ed2  is  (].  ed3  is  (]•  opt  is  ’#fied  deleting*.  recordNum  is  []. 
header  «  ’#fblue  Select  the  quarter  to  be  deleted#d’. 

ForniDisplayO- 

end. 

topic  Fonndi^ilay. 
fotmatdi^laysO. 
if  TrecoidNum  is  (]  then 

button(Ok.ok_delete48.12,6)  and  button(cancel,cance)iation,37,12,8). 

end. 

topic  formatdisplays. 
disable_window(?wnienu). 

wh  is  window(,7,8,78,16„(Dialogwiiidow,visibleD. 
year  is  0.  quarter  is  0. 

text(#e).  set_displayjx)s(26,2}.  text(?header). 

set^diq>lay_pof(26,3).  text(’#fred - #d’). 

radio_button([(Winter38,6],[Spring40,6], 

(Sumn]er48,7].[Fall40.7]],  quarter). 
radio_button([[9133,91,(92,42.9].(9341.911,year). 
edl  is  edit_lin^edl„27,6.9). 


ed2  is  edit_line(?ed2„27.9.4). 

set_display_pos(04)- 

text(’#ftlue 


Quarter  Name 


Year  :#d'). 

end. 

topic  ok.delete. 

if  (  not(?quarter  is  0)  and  not(?year  is  0))  then  search.dataQ  and  ed3  is  [] 
and  di^layboxO 

else  info  is  *#n  #fred  Please  select  the  options  ’  and  test  is  0  and 

display_messageO- 

end. 

topic  year(item). 
ed2  is  ?item.  year  is  1. 

ed2  is  ediUine(?ed2„27.9,4).  ed2  is  ?item.  edit2  is  ?itein. 
end. 

topic  quarter(iiem). 

edl  is  Titeni.  quarter  is  1. 

edl  is  editjine(?edl„27.6,9).  edl  is  ?item.  editl  is  ?item. 
end. 

topic  displaybox. 

year  is  0.  quarter  is  0. 

text(#e).  set_disiday_po8(26,2).  text(’Select  the  courses  to  be  deleted’)- 

set.display_pos(263).  text(’#fred - 

set_display4)os(12,6).  text(’#fblue  Quarter  Name  :  ’).  text(?edl). 

set_display_pos(12,9}.  text(’#fblue  Academic  year  :  ’).  text(?ed2). 

set_diqilay_pos(SS,4). 

text(’4fblue  Courses  are  tiered’). 

seL.display_pos(5S4).  text(’in  ’). 

text(?editl).  iext(’  ’).  text(?edit2). 

Lb  is  list_box([?r«oofdNum],iiqMtdaia4i5.6,12,.t.Uist_select_event). 
set_display4)os(10,12}.  text(’#fl)lue  Course  Number :’). 
ed3  is  editjiiie(?ed3„29.12^). 
set_display_pos(9,14). 

text(*#ftlue  Delete  this  course  ?  ').  buttan(Yes,yesdelete,29.I4,6). 
buttoo(Canceljot_<lelete38. 14.8). 
end. 

topic  iiqMtdata(item). 

ed3  is  7item.  edit3  is  ?iiem.  ed3  is  edit_line(?ed3„29,12,2S). 
end. 

topic  not.delete. 

info  is  ’ '.  display.infoO- 

button(Yes,coatinueDelete,  42,4.3).  button(No,MainMenu,49,4.S). 
show.windowQ. 
end. 


■#d’). 
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topic  continueDeiece. 

close.wmdowO.  edB  is  [].  displayboxQ- 

end. 


topic  yesDelete. 

«13  is  get_text(?ed3). 

if?ed3is(]  then  info  is ’#n  #fred  Select  course  number,  please  !’  and 
test  is  2  and  display.messageQ 
else  (if  not(intersect(?recordNum.  ?edit3)  is  ?edit3)  then 
info  is  concat(?ed3,'#fred  was  not  in  the  database  !*) 
else  removerecordO  and  written  is  S  and 

info  is  coiicat(?ed3,’#fblue  has  been  deleted  from  Database’))  and 
di^lay_infoO  and  button(Yes,continueDeletc.  42.4,5)  and  button(No.MainMenu,49,4,5) 
and  show.windowQ. 

end. 

topic  ctmtinueDelete. 

close_windowO.  ed3  is  (].  displaybox(). 
end. 

topic  removerecord. 

recoidNum  is  remove(?recordNuin,?edit3). 
newRec  is  concat(?Year_Qtr,7/’,  list_to_string(?recordNum,’  ’)). 
message  is  replace(?inessage,  ?oldRec,  TnewRec). 
oldRec  is  TnewRec. 
end. 

topic  &Help. 

wh  is  window(,8.8.74,16,.[Dialogwindow, visible]). 

text  (#e,read  (’infoJiyp’.  concat  (’//’.quarter) ,’//’) ). 

set_file_pos  (’iiifojiyp’,0,beginning}. 

b2  is  buttaa(0kjceep_onj0,14). 

set_focus(7b2). 

waitQ. 

topic  keep.on. 

close(’itfoJiyp’).  close.windowQ. 
end. 
end. 

tt^ic  update.file. 
new_rt)e(’quarter.txt’). 
write(’quarter.txt’.?iiiessage). 
close(’quaner.txt’). 
end. 

tn{m  ’previous.menu’. 
if  Twritten  is  S  then  updaieJileO- 
new_nie(’tempo.dat’).  write(’tempoxlat’.2). 
ciose_allO-  close_window(?winenu). 
do(!niain). 
end. 
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topic  ’quit_to_system’. 

if  ?wTiuen  is  5  then  update_nieO- 
close_all0.  close_window(?menu). 
clearO- 
end. 

(* - -END  QUARTER.KB - ♦) 

(•  Tide  :  STUDENT.KB 
Author  :  supr^to 


*) 


wmenuis  window(seleci:&quiu5.4.82,23„[Popup,.ControlMenu.ThickFrame,ShowChildren,Siblings]). 

ml  is  nienu(l(E&xit,  ’Previous_menu’.  ’^t_to_system’l,&Help],select). 
set_title(?wmenu,’STUDENT  OBJECT’)- 

qtrUst  is  [’91  r.’91  2’.’91  3’.’91  4’.’92  r.’92  2’.’92  3’.’92  4’.’93  r.’93  2’.’93  3’.'93  4’]. 
quarterName  is  [’Winter  qi’.’Spring  9r.’Suinmer  9r.’Fall  9r.’Winter  92’.’Spring  92’. 

’Summer  92’.’Fall  92’.’Winter  93’.’Spring  93’.’Summer  93’,’Fall  93’1. 
trackLisi  is  (’Artificial  Inielligence’.’Tactical  Comp  Systems’.’Software  Engineering’, 

’Military  Data  Processing’).  trackNumber  is  (1,2.3,4]. 


quarterNumber  is  [1.2.3,44.6,7.8.9,10.11.12]. 
qtrNumber  is  [14<3.44.6,7,S]. 

qtrName  is  [’Winter  91’, ’Spring  91’, ’Summer  9r,’Fall  91’, 

’Winter  92’, ’Spring  92’.’Summer  92’.’Fall  92’). 


set_title(?wmenu, ’STUDENT  OBJECT’),  test  is  0. 
show_wiiKk)w(?winenu).  written  is  0. 


read_fileO- 
topic  read_file. 

SList  is  read(’studentl.at’). 

Slength  is  lisUengtn(?SList).  No  is  1.  Sdt_Id  is  []. 
repeat 

Sdt_Id  gets(first(string_toJist(elemcnt(7SList,?No))))  and  No  =  ?No  +  1 
until  ?no  >  ?Slength. 


SInfo  is  read(’student.ut’). 

(•  read  file  snident.txt  that  contains  student.Id,  name  (kqn  in  SList)  and 
student  Informaiion(naincjank.section  etc)  kept  in  SInfo  *) 


(*  coursel  is  readC’coursel.ut’). 

courseNum  is  string_to_list(elenient(string_to_list(?coursel.’//’),l)). 
courseName  is  slring_u>_lis£(element(string_to_list(?coursel,’//’),2),’@’).  •) 
eixl. 

selectionQ. 
topic  selection. 

text(#e).  enable_menu_item(?ml,[E&xit)). 
text  (’Unified 
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MANAGEMENT  COURSE  DATA  OBJECT#FBLUE 

- -#d*). 


set_display_pos(16, 1 7). 

text(’#fbluc  - ’). 

buttonCUPDATE  THE  STUDENTS  INFO’.&update,24,7.32). 
butttMiCDELETE  THE  STUDENTS  INFO’.&delete.24, 10.32). 
buttonCADD  THE  STUDENTS  INFO*.&add,24.13.32). 
wailQ. 
end. 

u^ic  select(item). 

do  (?item). 
end. 

topic  &update. 

set_title(?winenu,’UPDATE  THE  COURSE’). 
disable_menu_item(?ml,[E&xit]).  option  is  *#FRED  updating*, 
wh  is  window(,7,7,79,19„tDialogwindow,visiblel). 
use_font(system_font). 
make_inodal(?wh). 
displayboxO- 

topic  displaybox. 

text(#e).  set_display_pos(S,13).  textC'lifbiue  Student’s  name  to  be  updated  :’). 
set_display_pos(S,2).  edl  is  (]. 

text(‘#ftlue  STUDENT  in  the  Database  #fred  (Select  the  student  to  be  updated)’). 
Lb  is  list_box((?SList],input_data.5,4,30„.t,[list_select_event,double_click_eventl). 
edl  is  editJine(„3S.13.l3). 
button  (OK,Ok.55.5,10).  btttton(Cancel.can4S,9,10). 
end. 
end. 

topic  can.  close.windowQ.  enable_ttienuJtem(?ml.[E&xit]).  end. 

topic  input_data(iiem,info_name). 

edfield  is  ?item.  SKey  is  ?item.  edl  is  string_to_list(?edfield). 
edl  is  first(?edl).  key  Value  is  7edl. 
edl  is  edit_liiie(?edl..3S.13.1S). 

if  ?info_naine  is  ’double.clidt_event’  then  edl  is  get_text(?edl)  and 
editone  is  7edl  and  diedc_dataO- 
end. 

topic  Ok. 

if  not(get_text(?edl)  is  [])  then  edl  is  get_text(?edl)  and 
editone  is  ?edl  and  check_dataO 
else  input.data(getJist.box(?Lb)). 


end. 

topic  check.dataQ. 

if  ?option  is  ’#fred  Updating’  then  edit_studentO 
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else  ( if  ?<qxia3  is  ’#fTed  deleting  '  then  delete_student() 
else  add_student()). 


topic  edit_student. 

if  <Mie_of(?SList,  ?skey) 
then  editO 
else 

message  is  concat(?edl,  ’#fblue  was  not  in  the  student  file  !’)  and 
display.infoO- 
end. 

topic  delete_student. 

if  one_of(?courseNum,  ?edl) 
then  deleteO 
else 

message  is  concat(?edl,’#fred  was  not  in  the  student  file  !!’)  and 
display_infoO- 
end. 

topic  dispiay.info. 

w2  is  window(,16,l2,56,8„[Dialogwindow,visible]). 
text(’#n  ’).  text(?info).  text(’#n  #n  ’)• 
text(’  Continue  *).  text(?option).  text(’  the  student's  info  ?’). 
use_font(sy$tem_font). 
make_modal(?w2). 
end. 

topic  get.data. 

edl  is  $tring_toJist(?skey).  ed2  is  concat(element(?edl,2).’  ’,element(?edl,3)). 
edl  is  flist(?edl). 

SField  is  element(?Slnfo,  wheie(?SList.?Skey)). 
student_info  is  string_toJist(?SField,7/’). 
ed4  is  element(?student.info,3).  ed3  is  element(?student_info,2). 
edS  is  (element(?student_info^)). 
ed6  is  (element(?student_info,6)). 
ed7  is  (element(?student_info,7)). 
ed8  is  (element(?studencinfo,8)). 
ed9  is  elenient(?studencinfo,4). 
end. 


topic  ForaiatDisplay. 

wh  is  window(,8,8,77,17„[IXalogwindow,visible]). 
text(#e).  set_diq)lay_pos<l,2).  disable_window(?wmenu). 


text(’#fblue  Studem  _Id 


Name  ; 


Rank 


Section : 


4th  quarter  : 
8th  quarter  : 


Track  Name 


Selected  Courses : 
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Taken  Courses  :  #d  ’). 

list_box(t?qn’Name],u^t_track,60,4,13,2,„list_seleci_event). 

Hst_box({?trackList],input_quater,45,7,26,2,„list_select_event). 

di^lay.recoidO. 

end. 

topic  input_iTack(item). 

if  not(?opdon  is  '#fired  deleting’)  then  get_iTackName(?item). 
end. 

U^ic  get_trackName(item). 

edS  is  elenient(?quarterNumber,  where(?quarterName,  ?itein)). 
ed6  is  ?ed5+3. 

set_dispIay_pos(4S,4).  textC  *). 

set_display_pos(4S^).  textC  ’). 

set_display_pos(4S,4).  text(element(?quarterNanie,  where(?quarterNumber,  ?ed5))). 
set_display_pos(4S^).  text(element(?quarterNanie,  wheTe(?quanerNuniber,  ?ed6))). 
ed5  is  elentent(?qtrList,  where(?quarterNumber,?ed5)). 
ed6  is  elenient(?qtrList,  where(?quarterNumber,?ed6)). 
end. 

topic  input_quater(item). 
if  not(?option  is  ’#fred  deleting')  then 
ed9  is  elenient(?trackNuniber,  where(?trackList,  ?item))  and 
set_display_pos(20,8)  and  textC  ’)  and 

set_display_pos(20.8)  and  iext(?iteni). 
end. 

topic  display_reconl. 

edl  is  editjine(?edl„15.2,12). 
ed2  is  edit_line(?ed2„45A20). 
ed3  is  edit_liiK(?ed3..1S.4.10). 

seL.display_pos(4S.4).  text(etenient(?qtrName.  where(?qtrUst,  ?ed5))). 
sei_disp]ay_pos(20,8).  text(elemcnt(?trackList,  where(?tra:kNumber,  ?ed9))). 
ed4  is  editJine(?ed4..1S.6,8). 

set_display4X)s(454)-  text(elenient(7qirName,  wheTe(?qtrList,  ?ed6))). 
ed7  is  editjine(?ed7..20,10^2). 
ed8  is  editjine(?ed8,.20,12^2). 

end. 

u^c  edit. 

keyvalue  is  ?edl. 
get_dataO. 

set_title(?wmenu,’UPDATE  THE  STUDENT’S  INFO’). 

FormatDisplayO. 

button  (Update,yesUpdate,20.14.10). 
butum  (cance),cancellation,  32,14,10). 
end. 

topic  cancellation, 
info  is  (]. 

display_infoO-  butu»(Yes,continue,  42,4,5).  buuon(No,niainmenu,49,4,5). 

show.windowQ. 

u^ic  continue. 

cIose_window(). 

if  not(?option  is  ’#fred  adding')  then  close.windowQ- 
end. 

topic  mainmenu. 
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clo6e_wiiidow0-  close_wiiidowO.  enable_inenu.item(?tnl.[E&xit]). 
if  noc(7opti<n  is  ’tired  adding’)  then  close. windowQ- 
end. 
end. 


yesUpdate. 
is  get_textC?edl). 
is  gel._text(?ed2). 
is  geL.text(?ed3). 
is  get_text^ed4). 
is  ge(_text^ed8). 
is  geLtext(?ed7). 

set_diq)]ay4ms(20,16).  newKey  is  list_to_string(combine(?edl,?ed2),’  ’). 

if  not(one_of(?Slist,  Tnewkey)) 

then  ( if  one_<rf(diifferent(?Sdl;_Id.?keyValue),?edl) 

then  info  is  concat(?edl,’#fred  was  in  the  course  file  ltd’) 
else  updatedataO) 
else  (if  ?edl  is  TkeyValue 
then  updatedataO 

else  info  is  coacat(?edl,’tfTed  was  in  the  course  file  ltd’)). 
display_infoO<  button(Yes.continueUpdate,  42,4^).  butt(Hi(No,MainMenu,49,4.S). 
sbow.windowQ. 
end. 

topic  continueUpdate.  close.windowQ.  close.windowQ.  close.windowQ.  &updateO.  end. 
topic  MainMenu. 

close.windowQ.  close.windowQ.  enable.nienu_item(?ml,[E&xit]). 
close.windowQ. 
end. 

topic  updatedata. 

Slist  is  replace(?SList.?Skey,?newKey). 

edrec  is  Iist_toj«ring(coinbine(7edl,7ed3,7ed4,7ed9,7ed5,?cd6,?cd7,?ed8),’//’). 

Sinfo  is  rq)lace(7Sinfo,  7SField,7edrec). 
written  is  5. 

info  is  concai(7edl.’tfblue  has  already  been  updated  lltd’). 
end. 

topic  ftdelete. 

disable jneiaJteni(7inl.(E&xitD- 
set_title(7winenu,’DELETE  THE  STUDENT’S  INFO’), 
wh  is  window(,7,7,79,19„(Dialogwindow,visible]). 
useJbmCsystemjront). 
inake.jnodal(7wb). 
displayboxO. 

topic  di^playbox. 

text(te).  set_dis{^y_pos(S,13).  text(’tfblue  The  student's  Id  to  be  deleted  :’). 
set_diqpiay.pos(5.2).  edl  is  (I-  option  is  ’tfred  deleting’. 

text(’«fblae  STUDENT  in  the  Database  tfred  (Select  the  student  to  be  deleted)’). 
Lb  is  list_box((7SListl4i?»u.data^,430,„t,[listj5elect.cvenudouble_click_event]). 
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edl  is  edit_liiie(^5.13.15). 

button  ((XC,delete,S5,5.10).  button(Caiicel,can43,9,I0). 
end. 
end. 

u^c  delete. 
get_dataO. 

set_title(?wnienu, ’DELETE  THE  STUDENTS  INFO’). 

FomutDisplayO- 

set_display_p^4,14).  text(’#lred  Delete  this  reowd  ?’). 
button(YES.yesdelete.24.14,10).  button(NO,  cancellati<m,3S.14.10). 
wait( ). 
end. 

topic  yesdelete. 

Slist  is  itnK)ve(?SList,?Skey). 

Sinfo  is  remove(?Sinfo,  ?SField). 
written  is  5. 

info  is  concat(?edl,’#fblue  has  already  been  updated  !!#d’). 

display_infoO.  button(Yes,continuedelete,  42,4^.  button(No,MainMenu,49,4^). 
show.windowO. 
end. 

topic  continueUpdate.  close.windowO.  cloae.windowQ.  cloae.windowO.  &deleteO.  end. 


tqnc  &add. 

disable_inenuJtem(7ml,[E&xit]).  optkn  is  ’#fred  adding’, 
edl  is  [].  ed2  is  [].  ed3  is  []•  ed4  is  (].  ed7  is  []•  cdS  is  ().  ed6  is  [].  edS  is  [].  ed9  is  []. 
sectitle(7wnienu,’ADD  THE  STUDENTS  INFO’). 

FonnatDisplayQ.  set_display_pos(5S.l). 
button  (’Add  dau  (OK)’.Ok_Add.l8.1S.16). 
button  (canceL  cancellation,  39,13,8). 
setJ'oc«a(?edl). 

topic  (Xc.^Add. 
edl  is  geL.textC?edl). 
ed2  is  get_text(?ed2). 
ed3  is  get_text^ed3). 
ed4  is  getwtext^ed4). 
ed8  is  geL.text^ed8). 
ed7  is  geutext^edT). 

newKey  is  list_to,jtring(caaibtne(?edl,?ed2),’  ’). 
if  not(one_ol(?Slist,  Tnewkey)) 
then  add_iecoidO 

else  info  is  concat(?edl,’#fied  was  in  the  course  file  !#d’). 

display JnfoQ.  button(Yes,continue_add,  42,4,3).  butt(»i(No,Mam_Menu  ,49,4,3). 
show.windowQ. 
end. 

topic  continue.add.  close.windowQ.  dose.windowQ.  &add().  end. 
topic  Matnjnenu. 

enable_/nenuJtem(?ml,(E&xit]).  close.windowQ. 
close.windowO. 
end. 
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toi^  add_ieconlO> 

Slist  gets(?iiewKey). 

edrec  is  list_to_striiig(combine(?edl,?ed3,?cd4,?ed9.?ed5,?ed6,?ed7,?ed8),7/’). 
Sinfo  gets(?edrec). 
written  is  S. 

info  is  concat(?edl,’#fblue  has  already  been  updated  !!#d’)- 
end. 
end. 


tofHC  &Help. 

wh  is  wiiidow(,8,8.74,16„{Dialogwindow,visible]). 
text  (#ejead  (’infoJiyp’,  concat  (7/*.student)  'ID  )■ 
set_file_pos  (’iiifoJiyp’,0,beginning). 
b2  is  button(Ok,continue,30.14). 
topic  continue. 

close(’infoJiyp’).  close.windowQ. 
end. 
end. 

topic  update.file. 
new_file(’coursel  .txt’)' 

write(’coursel.tttMist_to_string(oombine(list_to_string(?c<NirseNum), 

list_to^tnng(?courseName,‘@*)).7/’))- 

close(’cottrsel.ttt’). 

newJile(’course.txt*). 

write(’coune.ttt*.?course).  close(’oourse.txt’). 
cloae_allO- 

end. 

topic  *pfevious_n]enu’. 
new_flle(’tempo4lat’). 
wiite(’tenq»xlat’,2). 
if  Twritten  is  S  then  update_^le(). 
close.windowQ. 
do(!inain). 
end. 

topic  ’quit_to_system*. 
if  Tu^tten  is  5  then  update_fileO. 
clo8e_aU0- 
clearQ. 
end. 

(• - end  STUDENTXB - *) 

(*  program  :  emphasisJtb 
author  :  suprqxo 

*) 

wmenu  is  window(select:&quit4^.82;2I„[Popup„ControlKtoni,ThickFrame.ShowChildren.Siblings]). 
ml  is  mentt([[EAxit,  *Previous_menu’,  ’Quit_to_system’],&Help,&IVint, 

[AEmphasis_Area,'Anifidal  fauelligence’.Tactica]  Comp  Systems’.’Software  Engineering’, 
’Military  Data  Processing'H^elect). 

set^title(7wmenu, ’QUERY  EMPASIS  AREA’).  disable_menttjtem(?ml,[&f^t]). 
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show_wiiidow(?winenu). 

logoO. 

uqHC  logo. 

wh  is  wiiidow(^12,46,4,.[Dulogwiiidow,visible]). 

text('#n  #fred  Loading  Data . ’). 

use_foiu(system_fom). 
niake_inodial(?wh).  show_window(?wh). 

eof  is  nufflber_u>_cliar(26). 
message  is  read_liiie(’track.ut’.4). 
repeat 

coiirseField  gets  ([?message])  and 
message  is  read_l^’tnck.txt*.4) 
until  Tmessage  is  ?eof.  ciose_allO.  close.windowQ. 
text(#e). 
end. 

topic  select(item). 
do  (?item). 

topic  ’Artificial  Intelligence', 
message  is  element(?courseField.l). 

UpdateQ. 

end. 

topic  'Tactical  Comp  Systems', 
message  is  element(?courseField,2). 

UpdateQ. 

end. 

to|ric  'Software  Engineering', 
message  is  element(?courseFiel<L3). 

UpdateQ. 

end. 

tope  'Military  Data  Processing', 
message  is  eienient(?coiirseField,4). 
l^idateQ. 
end. 


topic  update, 
msg  is  Tmessage. 
edl  is  nm(?message). 
ed2  is  fint(?menage). 
ed3  is  first(?message). 
ed4  is  firstfTmessage). 


message  is  lestfTmessage). 
message  is  rest^message). 
message  is  rest(?message). 
message  is  iestC?message). 


set_title(?wmenu,'QUERY  EMPHASIS  AREA'). 
FormatDisplayQ. 
button  (Continue,OK.l8.14.1S). 


topic  ok. 

text(#e).  disable_menu_item(?ml.(&Print]). 
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ensUe_inenu Jtem(?m  1  .[&Emitois_Area]). 
end. 
end. 

topic  FonnaiDisplay. 

disable_nienu_item(?m  l,[&Emphasis_Area]). 
enable_menujtem(?m  1  .[&Print]). 

(*  disable_window(?wnienu). 
wh  is  window(.6,8,80.l7„[Dialogwindow,visiblel).*) 
text(’#e  #fBLUE 

Emphasis  No : 


Track  name 


Description  ;#D  ’)• 
edl  is  edit_line(?edl„18^). 
ed2  is  ediUme(?ed2..18^^). 
ed3  is  ediL.line(?ed3.,18,8.40). 
ed4  is  ediUine^ed4„18,10,40). 
end. 

topic  AHelp. 

wh  is  wiiidow(,U.8,68,16„(Diaiogwindow,visible]). 
text  («e,rend  (’infoJiyp’,  coocat  (V/’.quemphas)  ,7/’) ). 
set_file_po8  (‘infoiiyp’.0,beginning).  make_modal(?wh). 
b2  is  buu(m(Ok.cantimieJ0.14). 
topic  coaiimie. 
text(#e). 

claM(’infoJiyp’).  close.windowO. 
end. 
end. 

topic  ’Previous_inena’. 

newJiteC’ten^oilat’).  wTite(’tempo.datM). 
close_aUO.  cIOK.windowO. 
do(!niain). 
end. 

topic  ’quicto^ystem'. 

ckMe_aUO.  ctoae.windowO. 
clearO- 
end. 
end. 

(• - END  QUEMPHASJCB - •) 


(*  Program  :  QuetecJcb 
Author  :  Suprapto 

•) 

wmenu  is  window(select:&quit,83.72^„[Popup„ControlMenu.ThickFTame,ShowChildren.Siblings]). 
set^title(?winenu,’QUERY  ELECTIVE  COURSE  ’). 
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ml  Bmenu(I[E&xit.’Prcvk>us_Menu’.*quil;_to_system’),&Help.&Print.[&Emi*asis_Area,’AnificialInteUigence’,’Tactical 

Comp  Systems’.’Software  Engineering’, 

’Military  Data  Processing’]],$elect). 

trackName  is  [’Artificial  Intelligence’. ’Tactical  Comp  Systems’.’Software  Engineering’, 

’Military  Data  Processing’].  trackNo  is  (1,2,3,4]. 
slK>w_window(?wmenu). 

QtrName  is  [Winter.Spring.Summer,Falll.  QtrNo  is  (1,2.3.4]. 
wh  is  window(.22,12.46.4,.[Dialogwin<k)w,visiblel). 

text(’#n  #fred  Loading  Data . ’). 

use_f(mt(system_font).  disable_menuJtem(?ml,I&Print)). 
make_modal(?wh).  show_window(?wh). 

trackel  is  read(’TRACKELT.TXT’). 

eof  is  number_to_char(26). 

qtrNumber  is  [].  qtrYear  is  [].  qtrUst  is  []. 

message  is  read_line(’quarter.ut’,l). 

repeat 

message  is  string_toJist(?message,’//’)  and 
qtrUst  gets  Iist_to_string(rest(?message),’  ’)  and 
qtrNumber  gets  element(string_toJist(first(?message)),2)  and 
qtrYear  gets  element(string_to_list(first(?message)).l)  and 
message  is  readjine<’quarter.ttt’,l) 
until  Tmessage  is  ?eof.  close_alIO- 


coursel  is  read(’coursel.txt’). 

courseName  is  string_toJist(eIement(string_ioJist(?coursel,’//’).2),’@’). 
coursel  is  string_toJist(element(strmg_toJist(?coursel,’//’).l),). 
course2  is  readf’course.ut’). 

(*  read  file  course.txt  (CourseNumber,  CourseName, 

creditLecture,creditLab,  ( prerequisite )  .description), 
courseNumbers  will  be  kept  in  list  COURSEl  and 
creditLec,  creditLab,  prerequisite  will  be  kept  in  COURSE2 


close.windowO- 

(•  read  file  course.ut  (CourseNumber,  CourseName, 

cteditLecture,creditLab,  ( prerequisite }  .description), 
courseNumben  will  be  kept  in  list  COURSEl  and 
courseName,  creditLec,  creditLab,  prerequisite  will  be  kept  in  COURSE2 


topic  select(item). 

do  (?item). 
end. 

topic  searching.  text(#e). 

wh  is  windowv,22,12,46,2..[Dialogwindow,visible]). 
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text(*#fblue  Serching  Hata . •). 

use_fafu(systanjbm). 
inake.jiiodal(?wh).  show_wiiidow(?wh). 
end. 


topic  ’Artificial  Intelligence’. 

(•  searchingO.  •) 

ed2  is  ’Artificial  Intelligence’. 

firstfile  is  string_toJist(element(string_toJist(eleinent(?trackel.l), ’//’),!)). 
secondfUe  is  string_toJist(element(string_to_list(element(?trackel.l),’//’),2)). 
&display_recordO. 
end. 

topic  ’Tactical  Comp  Systems’. 

(*  searcbingO.  •) 
ed2  is  ’Tactical  Computer  Systems’. 

firstfile  is  string^u>Jist(element(strin^toJist(elemcnt(?trackel.2).’//’),l)). 
secondfile  is  string_toJist(element(string_to_list(eleinent(?trackcl,2).’//’).2)). 
&display_recordO. 
end. 

topic  ’Software  Engineering'. 

(•  searchingO-  •) 

ed2  is  ’Software  Engineering’. 

firstfile  is  8tring_to_list(element(string_to_list(element(?trackcl.3), ’//’),!)). 
secondfile  is  string_to_list(element(string_io_list(elcment(?trackcl.3),’//’),2)). 
&display_recordO. 
end. 

topic  ’Military  Data  IVooessing’. 

(•  searchingO.  •)  text(#e). 
ed2  is  ’Military  Data  Processing’. 

firstfile  is  string_ioJist(elenient(strin^to_li8t(eIement(?tracket,4).’//’).l)). 
secondfUe  is  string_to_Ust(element(string_toJist(eleinent(?trackel.4),’//’)^)). 
&dispiay_recoidO. 
end. 

topic  &di^lay_reconl. 

di8able_menu_item(7ml,(&Eniphasis_Area]). 

enable_menuJtem(7ml,[&PrintD- 

text(’#e  #fblue 


EMPHASIS  ELECTIVE  COURSE 
TRACK  NAME: 

COURSE  NO  COURSE  NAME  ELECTIVE  TYPE 


set_^splay4iO8(30^).  text(?ed2). 
row  is  8. 

cp  is  ’#fted  Required’.  lecordNo  is  Iistjength(?firstfile).  no  is  1. 
repeat 


A 


- #Cl  ’). 
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No  «  Tno  -fl  and 

cn  is  concat(’«m’.’#fTed  ’,eleincnt(?firstfile,?no),*#in’)  and 

cm  is  concat(’#m*.’#fred  ’,element(?courseName.  where(?coursel,  element(?firstfiIe,?no))).’#m’) 
and  displayO 
until  ?No  is  TrecordNo. 

cp  is  ’#fblue  Optional’.  recordNo  is  list_length(?secondfile).  no  is  1. 
repeat 

No  *  Tno  +1  and 

cn  is  concat(’#m’,’#fblue  ’.elenient(?sec<MKlfile,?No),*#m’)  and 

cm  is  ctHicat(’#m’,’#fblue  ’,element(?courseName,  where(?coursel,  elementfTsecondfile ’no)))  ’#m’) 
awl  displayO 

until  ?No  is  TrecordNo.  set_display_pos(3.20). 
text(’#fblue  Please  click  Course  Number,  for  mwe  information  !’). 
button(c(»tinue,continue,60,20,10). 
tq)ic  continue. 

text(#e).  enable_menu_item(Tml,[&Em{rtiasis_Area]). 
disable_menu_item(Tml.[&Printl). 
end. 
end. 

topic  mark(item). 

wh  is  window(.15.6.60.18..(Dialogwindow.visiblel).  n  is  2. 
dummy  is  list_of_char(Titem). 

if  listJength(Tdummy)  >  6  then  item  is  element(Tcoursel,  where(TcourseName,  Titem)). 
message  is  string_toJist(eleinent(Tcourse2,  where(Tcoursel.  Titem)),’//’). 
text(’#n#fblue  Course  Number  ’).  set_display_pos(17,Tn).  text(’:  ’).  text(Titem). 
text(#n).  n  =  Tn  +  2. 

text(’#n#fblue  Course  Name  ’).  set_display_pos(17,Tn).  text(’:  ’).  n  *  Tn  +  2. 

text(element(7courseNaine,  where(Tcoursel, Titem))).  text(#n). 

iext(’#n#fblue  Credit  Lec/Lab  ’).  set_display_t.Ts(17,Tn).  text(’:  ’).  n  *  Tn  +  2. 

text(first(string_toJist(elenient(Tmes$age,2)))).  text(’  /  ’). 

text(last(string_to_list(element(Tmessage,2)))).  text(#n). 

text(’#n#fblue  Prerequisite  ’).  seL.d^lay_pos(17,Tn).  texi(’:  ’).  n  *  Tn  +  2. 

text(element(7message3)).  text(#n). 

text(’#n#fblue  Ors  description  ’).  set_display_pos(17,Tn).  text(’:  ’). 
text(element(Tmessage,4)).  text(#n). 

’)•  Kxt(element(Tmessage4))-  text(#n). 
text(’#n#fblue  Course  offered  in  ’).  n  is  1.  wait(,0.000001). 
repeat 

( if  one_of([5,10],Tn)  then  text(’#n  ’))  and 

( if  (me_of(string_ioJist(element(7QtrList,Tn),’  ’),  Titem) 

then  text(element(TqtrNaine,  where(TqtrNo,  element(Tqtrt^umber,Tn)))) 
and  text(’  ’)  and  text(elenient(TqtrYear,Tn))  and  text(’  ’) )  and 
n  a  Tn  +  1 
until  Tn  is  12. 
use_font(systemJont). 
make_modal(?wh).  slx>w_window(Twh). 
buttoo((^oontintte,48, 16, 10). 
topic  continue. 

close.windowQ. 

end. 

end. 

tqric  display. 


99 


row  is  ?row+l. 

set_di^lay_pos(5,?row).  text(?cn). 
set_display_pos(18,?row).  text(?cni). 
set_display_pos(55,?row).  texi(?q)).  waii(,0.00001). 
end. 

topic  can. 

close_window(?wh). 

&nienu_opti<»iO. 

end. 

topic  ’Previous.menu’. 

new_file(’tenipo.dat’).  write(’tempo.datM). 
close_all().  close_windowO. 
do(!main). 
end. 

topic  ’quit_to_systeni’. 

close_allO.  close_windowO. 
clearO- 
end. 

topic  &Print. 

print  (gttjexi  (?wmenu)). 
end.  (•APrint*) 


topic  AHelp. 

wh  is  window(,U,8.66.16„[Dialogwindow,visiblel). 
text  (#ejead  (’infoJtyp*,  concat  (V/’.quelec)  ,7/*) ). 
set_file_pos  (’infoiiyp*,0,beginning).  make_modal(?wh). 
b2  is  butum(Ok.continue,30,14). 
topic  continue. 

close(’infoiiyp').  close_window(). 
end. 
end. 

(• - end  QUELECJCB - •) 


(*  Program  :  optadecJtb  *) 


wmenu  is  window(select;&quiu5,3,82,25„(Popup„ControIMenu,'nuckFrame,ShowChildren, 

Siblings]). 

set_tiUe(?winenu,'ELECnVE  COURSE  SELECTION’). 

ml  is  menu([[E&xit,’Ptevious_Menu’.’Quit_to_System’],&Help,&Print , 


AStudentJ^elect). 

trackList  is  (’Artificial  bitelligence’.'Tactical  Comp  Systems’.’Sofiware  Engineering’, 


’Military  Data  Processing’]. 

QtrNum  is  (1^3.4,3.6.7.8.9.10.11.12]. 

QtrYear  is  (’91  1’.’91  2’.’91  3’.’91  4’.’92  r.’92  2’.’92  3’.’92  4’,’93  l’.’93  2’.’93  3’.’93  4’]. 
Year  is  (’Win  91’.’Spr  9r.’Sum  91’,’Fall  91’.’Win  92’,’Spr  92’,’Sum  92’.’Fall  92’, 


’Win  93’,’Spr  93’.’Sum  93’.’Fall  93’]. 

QtrName  is  (Winter.Spring,SummerJ^all]. 

requiredCourse  is  (cs2970,cs3200,cs3300,cs3310,cs3320,cs3111,cs3450, 
CS3460]. 
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disable_menujtem(?in  1  ,(&Print]). 


sho  w.windo  w(?  wmenu) . 

wh  is  wiiidow(,22,14,46,4„Pialogwindow.visible]). 

text(’#n  #lred  Loading  Data . ’). 

use_font(system_font). 
n]ake_modal(?wh).  show_window(?wh). 

read_fileO.  close_window(). 

topic  Tead_file. 

quaner  is  read(’QUARTER.TXT’). 

(*  read  fde  quarter.ut  (quarter#,  year,  (course#}) 

It  contains  courses  to  be  offered  in  each  quarter  *) 

coursel  is  read(’coursel.ut’). 

courseName  is  string_to_Iist(elenient(string_toJist(?coursel,7/’),2),’@’). 
coursel  is  string_to_list(element(string_to_list(?coursel,7/’).l),). 
course2  is  readCcourse.ut’). 

(*  read  file  course.at  (CourseNumber,  CourseName, 

creditLecture,creditLab,  (prerequisite }  ,description), 
courseNumbers  will  be  kept  in  list  COURSEl  and 
creditLec,  creditLab,  prerequisite  will  be  kept  in  COIJRSE2 

*) 


trackel  is  read(’TRACKELT.TXT’). 

(*  read  track  required/elective  courses  *) 

SList  is  read(’studentl.ut’)- 
SInfo  is  read(’std.ut’)- 

(*  read  file  studentut  that  contains  student_Id,  name  (kept  in  SList)  and 
student  lnforniation(name,rank,secti(m  etc)  kept  in  SInfo  *) 

text(#e).  trackjname  is  ’  sid  is  [].  snm  is  ’ 
end. 

tqric  select(item). 
do  (?item). 

end. 

topic  &Student. 

wh  is  window(,lS,10,60,12„(Dialogwindow,visible]). 
use_font(system^ont). 
tnake_nx)dal(?wh). 
set_dispIay_pos(8,2). 

text(’#fbltte  Select  Student  Id  and  name  from  the  List :  ')• 
list_box([?SList],input_student,8,4,32,S„t,list_select_event). 
button(Ok.coinmit,45,4, 10). 
button(Cancel,can,45,7, 10). 
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end. 


topic  can.  close_window().  cancelQ.  end. 
u^ic  input_student(item). 

set_display_pos(27,10).  texi(’  ’). 

set_display_pos(8,10).  text(’#fblue  Studentjd  &  Name  :  ’)•  t£xt(?item). 

SKey  is  ?item. 
end. 

topic  ctmunit 
cIose.windowQ. 

sid  is  stiing_to_list(?skey).  snm  is  concat(element(?sid,2).’  *,element(?sid,3)). 
sid  is  fiist(?sid). 

trackNo  is  string_toJist(element(?SInfo.  where(?SList,?Skey)).7/*). 

ssc  is  elemem(?tracltNo3).  srk  is  element(?trackNo,2). 

strqtr  is  element(7tiackNo^. 

endqtr  is  string_toJist(el3ment(?trackNo,6)). 

SltCn  is  string_to_list(elenient(?trackNo.7),*@*)- 
TknCrs  is  stiing_to_list(element(?trackNo,8)). 
tiackNo  is  element(?tnckNo,4). 
required  is  siiing_to_list(elenient(?trackeI,?trackNo),7/*)- 
elective  is  elen)ent(?Tequired;2). 
required  is  elenient(?r^uired,l). 
track.jiame  is  eleniait(?trackList,?trackNo). 
dialogBoxQ. 

(*  searchs  the  information  for  selected  student 

such  as  studentjd.  name,  track,  selected  courses,  and 
courses  that  has  already  been  taken  *) 
end. 


topic  dialogBox. 

(•  displays  the  selection  *)  text(#e). 
set_(U^lay_pos(23,7)  and  text(’#fblue  Track  :  ’)• 
text(?tnek_nanie). 
set_display_po8(23.9). 
text(’#ftlue  Student-Id  :  ’).  text(?sid). 
set_diq;)lay_pos(23,l  1).  text(’#fblue  Name  :  ’).  text(?snm). 
button(Ok4IEARCHING,23,14,10). 
button(Cancel,cancel,40, 14, 10). 
end. 

tqnc  modify.  cloM.windowO-  end. 

topic  posqxne.  ckMe.windowQ.  canoelQ.  end. 

topic  searching. 

(*  searchs  the  data  associate  with  the  selected  student 
from  fourth  quarter  up  to  8th  *} 


Nu  is  element(?Qtd^frim,  where(?QtrYear,7SttQtr)). 
SltCrs  is  string_to_list(?SltQs,’@’). 

Qtr4  is  string_toJist(element(?SltCrs,l)). 
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QoS  is  string_toJist(dlement(?SUCrs,2)). 

Qtr6  is  string_u>Jist(dement(?SltCTs,3)). 

Qtr7  is  stiing_toJist(eleniem(?SltCis,4)). 

Qtr8  is  stnng_toJist(eIemeiU(?SltCrs^)). 

Fourth  is  stiing_to_list(element(string_to_list(element(?Quarter,?Nu). ’//’), 2)). 

Fifth  is  string_toJist(eleinent(string_toJist(elenient(?Quaner,?Nu+l),7/’),2)). 

Sixth  is  string_to_list(elenient(string_to_list(elenient(?Quarter,?Nu+2),  ’mi)). 

Seventh  is  string_toJist(elenient(stiing_toJist(element(?Quaner,?Nu+3),  7/’).2)). 

Eighth  is  string_toJist(element(string_toJist(element(?Quarter.?Nu+4),7/’),2)). 
display.headerO- 

process(4^lement(?year.where(?qtinum,?Nu)).13,?Qtr4,?Fourth). 
process(5,clement(?year,where(?qtmuin,?Nu+l)),14,?Qti5,?Fifth). 
process(6,elenient(?year,where(?qtinum,?Nu+2)),lS,?QtT6,?Sixth). 
process^,elenient(?year,where(?qtmuin.?Nu-f3)).16,?Qtr7.?seventh). 
process(8,element(?year.where(?qtmuin.?Nu-f4)),17.?qDS.?Eighth). 
text(#n).  textC  #fgray  N  #fblue  =  the  course  was  not  offered  ’). 

text(#n).  textC  #fgTay  P  #fblue  =  prerequisite  course  should  be  taken  first’). 

buuon(C<mtinue,cancei.72,2 1 ,9). 
end. 

topic  process(Q,YX.courses, quarter). 

recordNo  is  Iist_length(?courses).  no  is  1. 
set_display_pos(2,?L).  text(?Q).  text(’  /  ’).text(?Y).  R  is  14. 
repeat 

cn  is  eleinent(?courses,?no)  and  processl(?R)  and  r  is  ?r  -t- 12  and 
no  *  ?no  +1 
until  ?no  >  TreoordNo. 
set_display_pos(l,18). 
text('#fblue 

- -#d 


topic  processl. 

getdata  is  string_toJist(eIeinent(?course2,  where(?coursel,  ?cn)),7/'). 
prereq  is  eleinent(?getdata3). 
if  not(?prereq  is  ’  ’)  then  prereq  is  string_toJist(?prereq). 
checkpreieq  is  different(?preieq.?tkiiQs). 

if  ?checkpreieq  is  []  or  ?checkpiereq  is  [’  ’]  then  p  is  ’  ’  else  p  is  ’#fgray  P’. 
if  not(iniersect^cn,?quaner)  is  [])  then  n  is  '  ’  else  n  is  ’#fgray  N’. 
tkncrs  is  combine(?llaiCrs,?cn). 
set_display_pos(7R,?L). 

if  ?p  is  ’#fgray  P’  or  ?n  is  '#fgray  N’  then  text(c<niaa(’#m’.’#fgray  ’,?cn,’#m’)) 
else  text(concat(’#in’,?cn.’#m’)). 
textC  ’).  text(?n).  text(?p).  wait(.0.0001). 
end. 
end. 


u^c  display_header. 

disable_inenuJtem(?ml,(&Student]).  enable_menuJtein(?ml,(&Print]). 
textC#e  #fbiue 
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COMPUTER  SCIENCE  (368) 

OPTION  AREA  DECLARATION  AND  COURSE  SELECTION 


EMPHASIS  AREA 
STUDENT-ID 
NAME 
RANK 
SECTION 

QUARTER  COURSE  COURSE  COURSE  COURSE  COURSE  COURSE 
- 

se(_display_pos(34^).  text(’:’).  seu<lisplay_pos(36^).  text(?track_name). 
setjdi^y_pos(34,6).  text(’;’).  seu«lisplay_pos(36,6).  text(?sid). 
sei;_di^]ay_pos(34,7).  text(’:’)-  set_display_pos(36,7).  text(?snm). 
sec.di9lay_po8(34,8).  text(':’).  set_display_pos(36,8).  text(?sik). 

SET_DISPLAY_POS(34.9).  TEXTC:’).  set_<lisptay_pos(36,9).  text(?ssc). 

row  is  12. 

end. 


to(HC  cancel. 

text(#e).  tiack_naine  is  ’  sid  is  ’  ’.  snm  is  '  ’. 
disable_^nenuJtem(?ml.(&Print]).  enable_menu_item(?ml,(&Student]). 
end. 

topic  inaric(iiem). 

wh  is  window(.lS.6.60,lS„[Dialogwindow,visible]).  n  is  2. 
dummy  is  list_of_cbar(?item). 

if  list_length(?dummy)  >  6  then  item  is  element(?coursel,  where(?courseName.  ?item)). 
message  is  string_to_list(element(?oourse2,  wbere(?coursel.  ?item)).7/’). 
text(*#n#fblue  Course  Number  ’)•  set_display_pos(17,?n).  text(’:  ’)•  text(?item). 
text(#n).  n  «  ?n  -f  2. 

text(’#n#fblue  Course  Name  ’)•  set_display_pos(17,?n).  text(’:  ’)•  n  *  ?n  +  2. 
text(elenient(?coutseName.  wfaere(?coursel,?item))).  text(#n). 
text(’#n#fblue  Credit  Lec/Lab  O-  sei;_display_pos(17,?n).  text(’:  ’)•  n  =  ?n  +  2. 
text(first(string_io_list(element(?mes8age^)))L  text(’  /  ’)• 
text(last(string_to_list(element(?message^)))).  text(#n). 

text('#n#fblue  fterequisite  ’)■  seL.di^lay_pos(17.?n).  text(’:  ’)•  n  =  ?n  +  2. 
text(element(?message3)).  text(#n). 

text(’#iritfblue  Qrs  description  ’)•  seL.display_pos(17,?n).  text(’:  ’}• 
text(element(?message,4)).  text(#n). 

textC  ’)•  text(element(?message4)).  text(#n). 

use_font(system_fam). 
make_modaI(?wb}.  show_window(?wh). 
button(Olc,ooittinue,48, 13, 10). 
topic  continue. 

close.windowQ. 

end. 

end. 

topic  ’I¥evious_menu’. 
new_fl)e(*tenipo.dat’)-  writeCtempoxIat’.l). 
clo8e_all0- 
close.windowQ. 
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do(!iiuun). 

end. 

tq)ic  ’quit_to_sysieni’. 
close_all0.  close_window(). 
clearO. 
end. 


topic  &Pnm. 

print  (get_text  (?wnienu)). 
end.  (*&Print*) 


tqric  &Help. 

wh  is  window(,11.8.69,17„(Dialogwindow.visiblel). 

text  (#e,iead  (’infoJiyp*.  concat  (V/’.optadec)  'ID  )■ 

set_file_po8  (’infoJtyp’,0.beginning). 

b2  is  button(Ok.contmue.30.l5). 

set^focus(?b2). 

waitQ. 

cIose(’infoJiyp’)-  close.windowQ. 
end. 

(• - end  OPTADECJCB - •) 


(*  Program  :  offeredJcb 
Author  :  suprapio 

•) 

wmenu  is  window(selea:&qwt.8A72;Z8„lPoiwp„QiittrolMcnu.TIuckRame.Showauldrc^ 
set_title(7wnienu, ’ELECTIVE  COURSE  OFFERED’). 

m  1  '  ® 

menu([[E&xit,’Prtvious_Menu’.’Quit_tojsystem'].&Help.&Print,{&Quarter_Name,Winter,Sprmg,Suinnier4^all],[&Ycar 

,’9r.’92’,’93’I]4eIea). 

<lisable_inenuJtem(?ml,[ftMntD. 
show_window(?wmenu).  q  is  0.  y  is  0. 

wh  is  window(,22,14,46,4„[Di*logwindow.visiblel). 

iext(’«n  «fred  Loading  Data. . ’). 

usej(om(system_foiu). 
inakejno^(?wh).  show_window(?wh). 
readJileO.  cloae_windowO. 

topic  read_Ele. 
quarter  is  iea<K’()oaiter.ttt’}. 
coursel  isread(’coursel.Kt’). 

courseName  is  iiring_to_list(eleinem(string_toJist(?coursel,’//’),2),’@’). 
coursel  is  string_toJist(elenient(string_toJist(?coursel.’//’).l)). 
course2  is  read(’course.at’). 

(•  read  file  cour8e.txi  (CourscNumber,  CourseName. 

cieditLecture,creditLab.  (prerequisite )  .description). 
courseNumben  will  be  kept  in  list  COURSE!  and 
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creditLec,  aeditLab,  prerequisite  will  be  kept  in  COURSE2 

•) 

text(«e). 

end. 

topic  select(itein). 

do  (?iteni). 
end. 

topic ’91’.  year  is ’91’.  y  is  1.  dialogBoxQ.  end. 
topic  ’92’.  year  is  ’92’.  y  is  1.  dialogBoxQ.  end. 
topic  ’93’.  year  is  ’93’.  y  is  1.  dialogBoxQ.  end. 

topic  ’Fall’,  quarters  is  ’Fall’,  qtr  is  4.  q  is  1.  dialogBoxQ.  end.  i 

u^c  ’Winter’,  quarters  is  ’Winter’,  qtr  is  1.  q  is  1.  dialogBoxQ.  end. 
topic  ’Spring’,  quarters  is  ’Spring’,  qtr  is  2.  q  is  1.  dialogBoxQ.  end. 
topic  ’Summer’,  quarters  is  ’Summer’,  qtr  is  3.  q  is  1.  dialogBoxQ.  end. 

topic  dialogBox. 
if  ?q  is  1  then 

(  if  ?y  is  1  then  text(4e)  and  set_display_pos(28.6)  and  text('#fred  Your  choice’)  and 
set_display_pos(28.8)  and  text(’#lblue  Quarter  :  ’)  and  text(?quaners)  and 
seL.display_pos(28,10)  and  text(’#Fblue  Y  e  a  r  :  ’)  and  text(?year)  and 
button(Ok.SEARCHING.28.i2.6)  and 
buttao(Canoel,cancel48.12,lO) 

else  set_display_po8(28.8)  and  text(’Quarter  :  ’)  smd  text(?quarters)  and 

sec.display4Xis(20,10)  and  text(’  Please  select  a  academic  year  !  ’) ) 
else  seL.display_pos(28.8)  and  text(’  Year:’)  and  text(?year)  and 

seL.display_poB(20,10)  and  text('  Please  select  a  Quarter  Name  t  ’). 
end. 

topic  searching. 

wh  is  wiixlow(^14.46,4„[Dialogwindow,visible]). 

iext(’#n  ifred  Searching  Data . ’). 

use_foiit(systemJbnt). 
make_modal(?wh).  show_window(?wh). 

lecordNo  is  lisL.length(?quaner).  no  is  1.  header  is  0.  quanerUst  is  {].  data  is  []. 
repeat 

cn  is  element(?quarta.?no)  and 
cn  ■  string_to_list(7cn,’//’)  and 

(  if  ( eleinent(7cn,l)  is  caacai(?year.’  ’.?qir))  then  ’ 

quanerList  is  string_to.list(rest(?cn).’  ’)  and  no  is  TrecordNo  and 
quarterUst  is  iniersect(?quarteiList,?coursel))  and 
no  is  ?no  -f  1  and  data  gets  element(?Gn.l) 
until  ?no  >  TrecordNo. 

if  Tquarterijst  is  []  then  data  is  list_to_string(7data.’  ’)  and 
message  is  ’l-winier  2-spring’ 
else 

displayRecardQ. 

end. 

topic  displayRecord. 
displayJieaderO. 
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recordNo  is  listJength(?quarterList).  no  is  1. 
repeat 

getdata  is  string_toJist(element(?course2,  where(?courseI.  element(?quarterLisi,?no))),7/’) 
and  cm  is  element(?courseName,  where(?coursel,  eIement(?quanerList,  ?no)))  and 
Lec  is  eleinem(?getdata,2)  and  Lee  is  stnng_toJist(?lec)  and 
Lab  is  elenient(?Lec,2)  and  Lec  is  element(?Lec,l)  and  dispIayO  and 
No  *  ?no  +1 

until  ?No  >  TrecordNo.  enable_menu_item(?ml,[&Print]). 
disabIe_menuJtemC?m  1  ,[E&xit,&Quaner_Naine,&  Year]). 

text('#n#fblue - 

button(continue,coatinue,60,22, 10). 
topic  continue.  iext(#e). 

enable.menu Jtem(?m  1  ,[E&xit,&Quarter_Name,&  Year]). 
disable_menuJtem(?ml,[&Print]). 
end. 
end. 


(• - *) 

topic  display_header. 

close.windowQ. 
text(’#e  #fbltte 


ELECTIVE  COURSE  OFFERED 
QUARTER  NAME  :  YEAR  : 

COURSE  NO  COURSE  NAME  CREDIT  LECAAB 

- #(j  •). 

set_di^lay_pos(33.4).  iext(?quaners).  set.di^lay4X>s(S6.4).  text(?ycar). 

row  is  6. 

end. 


topic  display, 
row  is  ?row+l. 

set_dispiay_poa(S.?iow).  iext(eIement(?quarterList.?no)). 
set_dis{^y_pos(lS.?row).  text(?cm). 
set_display_pos(SO.?row).  text(?Lec). 

set_dispiay_pos(S2,?row).  tcxt(T).  set_display_pos(54,?row).  text(?Lab). 
wait(.0.0000001). 
end. 

topic  cancel. 

text(#e).  y  is  0.  q  is  0. 
end. 

topic  ’I¥evious.jnenu’. 

newJileCtempoxlat’).  writeCtempodatM). 
close_allO-  close.windowO. 
do(!niain). 
end. 

topic  'quit_to_system’. 

close.alI0.  close.windowO. 
clevO- 
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end. 


topic  ftPrim. 

print  (get_text  (?wmenu)). 
end.  (•APrini*) 


topic  &Help. 

wh  is  winiow(,11.8.64,l7„(Dialogwindow.visible]). 

text  (iejead  (’infoJiyp’.  concat  (V/'.quequan)  .V/*) ). 

setJtle4X)s  (’infoiiyp’,0,beginning).  inake_modal(?wh). 

b2  is  button(Ok,continue,30.1S). 

set_focus(?b2). 

waitO. 

closeC’infoJiyp’).  close.windowQ. 
end. 

(• - end  CXl’ERED  JCB — - *) 


(•  nt>gmi :  genselecJcb  •) 

wmenu  is  wmdow(select:dxput^.3.82^..[IVipap..ControlMenu.ThickFraine.ShowChildren. 

Siblings]). 

seLtiUe(?wnienu,’ELECTIVE  COURSE  SELECTION’), 
ml  is  menu(([E&xit,’I¥evious_Menu*.’Quit_to_System’].&Help,&Print , 
(&Qiiarter,Winter^pring^uniiner,Fail], 
[&Year.’9r,’92’.’93’l.AStudem]^lect). 

trackUst  is  (’Artificial  Intelligence’.’Tactical  Cdmp  Systems’.’Softwaie  Engineering’, 
’Military  Data  I^ocessing’]. 

QtrName  is  (Wititer,Spiitig.SummerJ’all]. 

requiredCdurae  is  (C82970,cs3200xi3310,cs3320.c83111.cs3450.cs3460.cs3502, 
cs3601,cs36S0,cs4601]. 
disable_iiieiitt_item(7ml,(ftmm]). 


show_window(?wmenu). 

wh  is  window(,22,14,46,4„[Dialogwindow,visible]). 
text(’#n  #fred  i-mutii^  Data......’). 

useJioiit(systemJbiu). 
niake.modal(7wh).  slK)w_wiiidow(?wh). 

read_fileO-  close_wiiidowO< 

topic  readL.flle. 

quartm  is  readC’QUARTER.TXT’). 

(*  read  file  quarter .txt  (quaneril.  year,  (course#)) 

It  oontaiiis  courses  to  be  tiered  in  each  quarter  *) 

coursel  isread(’coiirsel.nt’). 

couraeName  is  string_io_list(eIeinent(siring_to_list(?ooursel.’//’).2),’@’). 
coursel  is  ttring_to.Iist(element(siring_to_list(?couisel.’//’).l),). 
course2  is  read(’courae.ut’). 
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(*  read  file  course.txt  (CouiseNumber,  CouiseName, 

creditLecture,cieditLab,  ( prerequisite  ]  .description), 
couiseNumbers  will  be  kept  in  list  COURSEl  and 
creditLec,  aeditLab,  prerequisite  will  be  kept  in  COURSE2 


trackel  is  read(’TRACXELT.TXT’). 

(*  read  track  required/elective  courses  *) 

SList  is  read('studentl.ut’)- 
SInfo  is  read('student.txt’). 

(*  read  file  studenLUt  that  contains  student_Id,  name  (kept  in  SList)  and 
student  Informati(m(nanie/ank,section  etc)  kept  in  SInfo  *) 


text(#e).  year  is  ’  quarters  is  '  track_name  is  *  sid  is  [].  snm  is  ’ 
end. 

topic  select(item). 
do  (?item). 

end. 

topic  ftStudem. 

wh  is  window(.15.10,60.12.,(Dialogwindow,visible]). 
uaeJ'ont(system_font). 
n)ake_modal(?wh). 
set_display_pos(8.2). 

text('#fblue  Select  Student  Id  and  name  from  the  List :  ’)• 
lisL.box([?SList]4nput_student,8.4,32.S,.t.list_select_event). 
btttton(Ok.comniit,4S,4,10). 
batton(Cancel,can,45,7, 10). 
end. 

topic  can.  close.windowQ.  cancelO-  end. 
topic  input_student(iiem). 

set_di^y_pos(27,10).  text('  ’). 

set_display_pos(8,10).  text('#fblue  Studentjd  &  Name  :  ’).  text(?item). 

SKey  is  ?iiem. 
end. 

topic  commit. 
close.windowO. 

sid  is  string_loJist(?ikey).  snm  is  coocat(element(?sid,2),’  ',element(?si(L3)). 
sid  is  first(?sid). 

irackNo  is  string_io_list(eleinent(?SInfo,  where(?SList,?Skey)).7r)- 
ssc  is  elemem(7tnckNoJ).  ark  is  eiement(?aackNo.2). 
sirqtr  is  siring_toJi8t(element(?trackNo4))- 
endqir  is  siring_io_Usi(element(?irackNo.6)). 

SItOs  is  string_io_list(element(?trackNo,7)). 


109 


TknCrs  is  stnng_to_list(eleroent(?trackNo,8)). 
trackNo  is  elenwnt(?tTackNo,4). 
required  is  string_toJist(eIen)em(?trackel,?tTackNo),7/*)- 
elective  is  eieiiieiu(?required.2). 
required  is  elenieiu(?Tequired,l). 
trKk_name  is  eleineiu(?trackList,?trackNo). 
dialogBoxO- 

(*  searchs  the  information  for  selected  student 

such  as  studentjd,  name,  track,  selected  courses,  and 
courses  that  has  already  been  taken  *) 
end. 

tqric  ’91*.  year  is  ’91’.  dialogBoxQ.  end. 
topic  ’92’.  year  is  ’92’.  dialogBoxQ.  end. 
topic  ’93’.  year  is  ’93’.  dialogBoxQ.  end. 


topic  ’Fair,  quarters  is  ’Fall’,  q  is  ’4’.  dialogBoxQ.  end. 
topic  ’Winter’,  quarters  is  ’Winter’,  q  is  ’1’.  dialogBoxQ.  end. 
u^c  ’Spring’,  quarters  is  ’Spring’,  q  is  ’2’.  dialogBoxQ.  end. 
topic  ’Summer’,  quarters  is  ’Summer',  q  is  ’3’.  dialogBoxQ.  end. 


topic  dialogBox. 

1*  displays  the  selection  *)  text(#e). 
set_display_pos(23,4)  and  text(’#fblue  Track 

:•). 

text(?traclLhaine). 

set_display4K)s(23,6)  and  text(’#fblue  Quarter 

:’). 

textQquarters).  text(’  ’). 
set_display_pos(23,8)  and  text(’#Fblue  Year 

:’). 

text(7year). 

set_display_po8(23,10). 

text(’#fblue  Studem-Id  :  ’).  text(?sid). 

set_display_pos(23,12).  text(’#fbiue  Name 

:  ’).  text(?snm). 

(*  check  the  student  whether  he/she  is  in  the  selected  quarter  or  not  *) 

if  (not(?year  is  ’  ’}  and  not(?Quarters  is  ’  ’)  and  not(?snm  is  ’  ’))  then 
( if  (c<xicat(?year,?q))  <  list_to.string(?endqtr)  *  1  and 
(concat(?year,?q))  >  list_to_string(?strqtr)  - 1  then 
buttoo(Olc,SEARCHING,23,14,I0)  and 
buttoii(Canoel.cancel,40, 14, 10) 

else  wfa  is  window(,22,19,48,6„[Dialogwinik>w,visible])  and 

text(’#fred  The  quarter  does  not  fix  to  the  studem. _ ’)  and 

text(’#n  ffblue  Please  select  from  *)  and  text(elenient(?QirNaiiie,element(?strqtr,2)))  and 
textC  ’)  and 

text(eiement(?siiqir,l))  and  text(’«fbtiie  through  ’)  and 
text(eleinent(7Qirbtai^elenient(7endqtr,2)))  and  text(’  ’)  and 
text(elenient(?endqff,l))  and 
use^ontCsyttemJbnt)  and 

makejmodal(?wh)  and  buttaii(Modify4nodify,10,4,10)  and 

buttan(Cancel,postpone30,4, 10)). 
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end. 

topic  modify.  close_window().  end. 

topic  postpone.  close.windowQ.  cancelO-  end. 

topic  searching. 

(*  searchs  the  data  associate  with  the  selected  student 
track  courses,  selected  courses,  courses  that  has  already 
been  taken,  courses  has  not  been  taken,  courses  offered  in 
the  selected  quarter  *) 

rectmlNo  is  listjength(?quarter).  no  is  1.  header  is  0.  quarterUst  is  {]■ 

(*  combine  required  and  elective  course  into  topic  ELECTIVE  *) 
elective  is  combine(string_toJist(?elective),string_toJist(?required)). 

(*  search  quarter  offering  courses  for  selected  quarter  *) 
repeat 

cn  is  eletnent(?quarter,?no)  and 
cn  ■  string_toJist(?cn,7/’)  and 
( if  element(?cn,l)  is  concat(?year,’  *,?q)  then 
cn  is  strin&.toJist(test(?cn),'  ’)  and 
quarterList  is  ?cn  and 
no  is  TrecordNo  -1)  and 
No  «  ?no  +1 
until  ?No  is  TrecordNo. 

if  TquanerUst  is  (]  then  wh  is  window(,22,ll,46,2„[Dialogwindow,visible])  and 

text(’#fM  Data  Not  Found’)  and 

wait(,0.0001)  and  dose.windowQ  and 
enable_menuJtem(?ml,[&Year,&Quarter,&Student]) 

else  yesDi^IayO- 

end. 

topic  yesDisplay. 

(*  displays  the  student  information  and  course  selection  *) 
text(#e). 

set_display_pot(20,2).  ext(’#fblue  Etn|iiuias.Area  :  ’).  text(?track_naine). 
set_display_po«(203).  t  xt(’#fblue  Quarter  /  Year  :  ’). 
iext(7quaners).  lextC  jext(7year). 

set_display_pos(20,4).  text(’#fMue  Student_Id  :  ’).  text(?sid). 
set_dis^y_pos(20,S).  text(’#fbhie  Studentjiame  :  ’).  text(?snm). 
set_diq>lay4)0s(l,8).  courses  is  (]. 

text('#fblue  Tta^  Courses  Selected  Courses  Have  been  taken  Not  been  taken  #fred  Courses  Offered’). 

list_box((coinbine(?requiredCourse,?elective)],3,9,10„t,t). 

list_box((coinbine(7requiredcourse,?sltCrs)l„  19,9, 10„t,t). 

list_box([?lknChi],J6,9,10„t,t). 

noiTkn  is  different(combine(?requiiedCourse,?sltC>s),  TiknCrs). 
dif  is  diflerent(?quanerList,?tknC^). 
list_box([?notl1m]„S3,9, 10„t,t). 

list_box({intersect(7notTkn,?diO]4n{«t_daBt,70,9,10„t,Uist.selea_event). 
set_diq>lay_po8(2S,18).  text(’#fblue  Please  select  courses  to  be  taken’). 
set_dis|^y_pos(23,19).  text(’#fblue  frooi  ’’ffted  Courses  Onered’  ffblue  list_box  !!’). 
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button(Ok4oolaip,70, 17,10). 
buuoa(Cancel,cancel,70,20, 10). 
disable_ineiiuJtein(?ml,[&Year.&Quarter,&Stu(lent]). 
end. 

topic  input_data(item).  courses  is  ?item.  end. 
topic  dispiayfofo. 

wh  is  window(,22,ll,48,7„Pialogwindow,visible]). 

text(’#n  #fred  Please  selea  available  courses  offered . *)• 

use_font(system_f(mt). 

inake_modal(?wh).  button(’Try  again’4nodify.l0,4,12).  buUon(Cancel,postpone,30,4.10). 
end. 

topic  lookup. 

if  ?courses  is  []  then  displaybifoO 

else  searchDataO.  ' 

end. 

topic  SeardiData.  ^ 

wh  is  window(,22,lS,46,4„[Dialogwindow,visible]). 

text('#n  #fbiue  Searching  data . *)• 

use_font(system_foot). 
nuke_modal(?wh).  show_window(?wh). 
recordNo  is  lisdength(?courses).  no  is  1.  header  is  0. 
repeat 

getdata  is  siring_io_list(elenfient(7course2,  where(?coursel.  eiement(?courses.?no))),  vn 
and  cm  is  elenient(?courseName,  where(?coursel.  eleinent(?courses,  ?no)))  and 
Lec  is  element(?getdata,2)  and  Lee  is  string_toJist(?lec)  and 
Lab  is  elemem(?Lec,2)  and  Lec  is  eleniem(?Lec.l)  and 
prereq  is  element(?geldata.3)  and 

( if  not(7prereq  is  ’  ’)  then  prereq  is  string_to_list(?prereq))  and 
displayO  and 
no  «  ?no  *  1 
until  ?no  >  ?  recordNo. 
button(Continue,continue,72,2 1 ,9). 

(*  if  checklYereq  is  (]  then 

new.iaken  is  coacat(7tkit_Ors.’  '4isL.to_string(7courses,’  ’))  and 
takenOs  is  replace(?takenCrs,  elenient(?takenCrs,  where(?scn.?sid)).?new_taken). 

*) 

topic  continue. 

enable_nienuJiem(?ml,(ftYear.&Quarter,&StudentD.  cancelQ. 

end.  * 


(• - •) 

topic  display Jieader.  dose.windowO- 
text(’#e  ifblue 

ELECTIVE  COURSE  SELECTION 


EMPHASIS  AREA 
QUARTER  /  YEAR 
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STUDENT-ID 

NAME 

RANK 

SEcnw 

COURSE  NO  COURSE  NAME  CREDIT  LEC/LAB  REMARK 

- 

set_<lisplay_pos(34^).  text(’:’)-  set_display_pos(36.5).  texi(?track_name). 
sel_dj^lay_pos(34,6).  iext(':’).  set_display_pos(36,6).  text(?quaners). 
text(’  /  ’ ).  text(?year). 

set_(li^lay_pos(34,8).  text(’:’)-  set_display_pos(36,8).  text(?sid). 
set_di^lay_pos(34,9).  text(’:’).  sct_<lisplay_pos(36,9).  text(?snin). 
set_display_pos(34.l0).  text(*:’)-  sct_(li^lay_pos(36,10).  text(?srk). 

SET_DISPLAY_POS(34,ll).  TEXT(’:’).  sct_display4»s(36,n)-  text(?ssc). 

row  is  14. 

end. 


topic  display. 

if  ?header  is  0  then  header  is  1  and  enable_nienu_item(?ml,[&print])  and 

display_headerO. 

row  is  7row+l.  checkPrereq  is  di£rerent(?prereq.?tknCrs). 
if  ?checkPrereq  is  []  or  ?checkPrereq  is  [’  ’] 

then  remark  is  '  valid  '  and  display.validO 

else  remark  is  concat(’not  valid,  piereq  ’,element(?ChKkPrereq,l))  and 
display_invalidO- 

end. 

topic  display.valid. 

set_display_pos(5.?row).  text(concat(’#m*.element(?courses,?no),’#m’)). 
sei_t^lay_pos(l8,?row).  text(c<mcat(’#m’,?cm,’#m’)). 
set_display_pos(SO.?row).  text(?Lec). 

set_display_pos(52,?row).  text(T).  sei_dis?lay_pos(54,?row).  texi(?Lab). 
set_display_pos(S8,?row).  text^emark).  wait(, 0.0001). 
end. 

topic  display_invalid. 
set_display_pos(5,?lrow). 

text(concat(’#m’.’#fgray  ’.elemem(?counes,?no),’#m’)). 
set_display_pos(18.?row).  iext(concat(*#m’.’«fgray  ’.?cm,’#m’))- 
set_display_pos(30.?row).  text(coiicat(’#fgray  ’,7Lec)). 
set_display4xis(52,?row).  texi(T).  set_display_pos(54,?row). 

text(concat(’#fgray  ’,?Lab)). 

seL.display_po8(58,?row).  text(coiicat('#fgray  ’.Tremark)).  wait(,0.0001). 
end. 

topic  cancel. 

text(#e).  year  is  ’  ’.  quarters  is  ’  ’.  track_name  is  ’  ’.  sid  is  ’  ’.  snm  is  ’  ’. 
disable_menu_iiem(?ml,[ftMntD-  enabie_menuJtem(?ml.[&Year,&Quaner.&Student]). 
end. 

topic  maik(item). 

wfa  is  window(,lS.6,60,15„[Dialogwindow,visible)).  n  is  2. 
dummy  is  list_of_chaf(?item). 

if  list_length(?dunimy)  >  6  then  item  is  eiement(?courseI,  where(7courseName,  ?item)). 
message  is  string_to.list(eIeniem(?course2.  where(?coursel.  Titem)).’//*). 
text(’#idifblue  Course  Number  ’).  set^display_pos(17,?n).  text(’:  ’).  text(?item). 


113 


text(#n).  n  =  ?n  +  2. 

text(’#n#fblue  Course  Name  ’).  sei_(lisplay_pos(17.?n).  text(’;  n  =  ?n  +  2. 
text(elenient(?courseNaine,  wheie(?couTsel,?item))).  text(#n). 
iext(*#n#fblue  Credit  Lec/Lab  ’).  set_<liq)lay_pos(17.?n).  text(’:  ')•  n  =  ?n  +  2. 
text(first(string_to_list(eleinent(?message^)))).  text(’  /  ’). 
textGast(string_to_list(eleinent(?message,2)))).  text(#n). 

text(*#ii#fblue  nerequisite  *).  set_display_pos(17,?n).  text(’;  ’)■  n  =  ?n  +  2. 
text(element(?message,3)).  text(#n). 

iext(’#n#fbiue  Crs  description  ’)•  set_display_pos(17,?n).  text(’;  ’)■ 
text(element(?message,4)).  text(#n). 

text(’  ’).  text(element(?message^)).  text(#n). 

use_f<Mit(system_font). 
inake_inodal(?wh).  show_window(?wh). 

button(Ok,continue,48,I3,10).  ^ 

topic  continue. 

close.windowO.  n 

end. 
end. 

topic  ’Previous.menu’. 

(•  updateFiIeQ.  *) 

new_ftle(’tempo.dat').  writc(’tcmpo.datM). 
close.allQ. 
close.windowQ. 
do<!mam). 
end. 

topic  updaieFile. 

length  is  listjength(?scn).  no  is  1.  courses  is  (]. 
repeat 

courses  gets  element(?selectedCrs,?no)  and 
courses  gets  elenient(?takenCn,?no)  and  no  s  ?no  -kI 
until  ?no  >  71ength. 

new^ileCstudenttxt’).  write(’student.ut’,?courses). 
end. 

topic  ’quit_to_system’. 

(•  updateFileQ.  *) 
close.allQ.  close.windowQ. 
clearQ. 
end. 

topic  ftPriiu.  ^ 

print  (geu.text  (?wineiiu)). 

end.  (*&Prim*)  t 


topic  &Help. 

wh  is  window(,ll,8,69,17„[Dialogwindow,visible]). 

text  (Hjtad  (’infoJiyp’,  concat  (V/’.quegener)  .VD  ). 

set_nie_pos  (’infoJtyp’Abeginning). 

b2  is  butloiKOk,continue,30.I5). 

set_focus(?b2). 

widtO- 
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closeCinfoJiyp*).  close_windowO. 
end. 

(* - GENSELEC.KB - *) 
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